home *** CD-ROM | disk | FTP | other *** search
/ USGS: Geolgic Assessment … in the Colorado Plataeu / USGS Geolgic Assessment of Coal in the Colorado Plataeu - Disc 1.iso / ArcView_Data_Pub / program / EXT32 / Legends.avx < prev    next >
Text File  |  1998-05-27  |  79KB  |  1,795 lines
  1. /3.1
  2. (Extension.1
  3.     Name:    "Legend Tool"
  4.     Dependencies:    "$AVBIN/avdlog.dll\n"
  5.     FirstRootClassName:    "Tool"
  6.     Roots:    2
  7.     Roots:    4
  8.     Roots:    196
  9.     Roots:    197
  10.     Roots:    198
  11.     Roots:    199
  12.     Roots:    200
  13.     Roots:    201
  14.     Roots:    202
  15.     Roots:    203
  16.     Roots:    204
  17.     Roots:    205
  18.     Roots:    206
  19.     Version:    31
  20.     About:    "Adds a tool for creating and setting advanced properties for legends to your layout document interface, This tool opens a wizard you use to set the properties for a legend. (v3.1)"
  21.     CanUnloadScript:    207
  22.     UnloadScript:    208
  23.     InstallScript:    209
  24.     UninstallScript:    210
  25.     ExtVersion:    1
  26. )
  27.  
  28. (Tool.2
  29.     InternalName:    "MapTool"
  30.     Help:    "Custom Legend Tool//Click where you want the lower left origin of a multicolumn legend"
  31.     Icon:    3
  32.     Cursor:    "Cursors.Bullseye"
  33.     Apply:    "Legends.Show"
  34. )
  35.  
  36. (AVIcon.3
  37.     Name:    "CartoLegend"
  38.     Res:    "Icons.CartoLegend"
  39.  
  40. )
  41.  
  42. (AVDLog.4
  43.     Name:    "Legends Multi-Column Legend"
  44.     X:    7
  45.     Y:    222
  46.     W:    486
  47.     H:    316
  48.     HelpTopic:    "Layout_Advanced_Legend_Tool"
  49.     ConstrainedControlNames:    5
  50.     ConstrainedControlNames:    6
  51.     ConstrainedControlNames:    7
  52.     ConstrainedControlNames:    8
  53.     ConstrainedControlNames:    9
  54.     ConstrainedControlNames:    10
  55.     ConstrainedControlNames:    11
  56.     Constraints:    12
  57.     Constraints:    13
  58.     Constraints:    14
  59.     Constraints:    15
  60.     Constraints:    16
  61.     Constraints:    17
  62.     Constraints:    18
  63.     Server:    19
  64.     ControlPanel:    20
  65.     Title:    "Custom Legend - Step 1 of 5: Basic Settings"
  66.     EscapeEnabled:    1
  67.     AlwaysOnTop:    1
  68.     HasTitleBar:    1
  69.     Closeable:    1
  70.     Close:    "Legends.Close"
  71.     Open:    "Legends.Open"
  72.     DefaultButton:    195
  73. )
  74.  
  75. (AVStr.5
  76.     S:    "LFinish"
  77. )
  78.  
  79. (AVStr.6
  80.     S:    "LNext"
  81. )
  82.  
  83. (AVStr.7
  84.     S:    "LBack"
  85. )
  86.  
  87. (AVStr.8
  88.     S:    "LCancel"
  89. )
  90.  
  91. (AVStr.9
  92.     S:    "aLabelButton1"
  93. )
  94.  
  95. (AVStr.10
  96.     S:    "AddThemes"
  97. )
  98.  
  99. (AVStr.11
  100.     S:    "RemoveThemes"
  101. )
  102.  
  103. (Numb.12
  104.     N:    85.00000000000000
  105. )
  106.  
  107. (Numb.13
  108.     N:    85.00000000000000
  109. )
  110.  
  111. (Numb.14
  112.     N:    85.00000000000000
  113. )
  114.  
  115. (Numb.15
  116.     N:    85.00000000000000
  117. )
  118.  
  119. (Numb.16
  120.     N:    85.00000000000000
  121. )
  122.  
  123. (Numb.17
  124.     N:    85.00000000000000
  125. )
  126.  
  127. (Numb.18
  128.     N:    85.00000000000000
  129. )
  130.  
  131. (Nil.19
  132. )
  133.  
  134. (CPanel.20
  135.     Child:    21
  136.     Child:    25
  137.     Child:    47
  138.     Child:    66
  139.     Child:    118
  140.     Child:    151
  141.     Child:    152
  142.     Child:    153
  143.     Child:    154
  144.     Child:    174
  145.     Child:    175
  146.     Child:    182
  147.     ResBox:    183
  148.     ResBox:    184
  149.     ResBox:    185
  150.     ResBox:    186
  151.     ResBox:    187
  152.     ResBox:    188
  153.     ResBox:    189
  154.     ResBox:    190
  155.     ResBox:    191
  156.     ResBox:    192
  157.     ResBox:    193
  158.     ResBox:    194
  159.     Listening:    1
  160. )
  161.  
  162. (CPanel.21
  163.     InternalName:    "aControlPanel2"
  164.     Child:    22
  165.     Constraints:    0x55
  166.     ResBox:    24
  167.     VisibleBorder:    1
  168.     Listening:    1
  169. )
  170.  
  171. (AVIBox.22
  172.     InternalName:    "aIconBox1"
  173.     Constraints:    0x55
  174.     Icon:    23
  175.     Listening:    1
  176. )
  177.  
  178. (AVIcon.23
  179.     Name:    "CartoLegend"
  180.     Res:    "Icons.CartoLegend"
  181.  
  182. )
  183.  
  184. (RectD.24
  185.     Left:    6.00000000000000
  186.     Top:    266.00000000000000
  187.     Right:    163.00000000000000
  188.     Bottom:    7.00000000000000
  189. )
  190.  
  191. (CPanel.25
  192.     InternalName:    "ThemePanel"
  193.     Child:    26
  194.     Child:    28
  195.     Child:    30
  196.     Child:    31
  197.     Child:    32
  198.     Child:    33
  199.     Child:    35
  200.     Child:    37
  201.     Constraints:    0x55
  202.     ResBox:    39
  203.     ResBox:    40
  204.     ResBox:    41
  205.     ResBox:    42
  206.     ResBox:    43
  207.     ResBox:    44
  208.     ResBox:    45
  209.     ResBox:    46
  210.     VisibleBorder:    1
  211.     Listening:    1
  212. )
  213.  
  214. (AVCBBox.26
  215.     InternalName:    "Vname"
  216.     Help:    "Choose a view from the list of views in your project to create a legend from"
  217.     NextControl:    27
  218.     ContentKind:    4
  219.     Constraints:    0x55
  220.     Listening:    1
  221.     Label:    "Choose a view:"
  222.     Select:    "Legends.Change View"
  223. )
  224.  
  225. (Nil.27
  226. )
  227.  
  228. (AVLBox.28
  229.     InternalName:    "ThemeList"
  230.     Help:    "Available Themes//Choose the themes to add to your legend"
  231.     NextControl:    27
  232.     ContentKind:    4
  233.     Constraints:    0x55
  234.     ColumnCount:    1
  235.     HorizontalScroll:    1
  236.     Listening:    1
  237.     VerticalScroll:    1
  238.     Select:    "Legends.Theme List Update"
  239.     SelectionStyle:    29
  240. )
  241.  
  242. (AVEnum.29
  243.     Name:    "LISTBOX_SELECTION_MULTIRANGE"
  244. )
  245.  
  246. (TextLabel.30
  247.     InternalName:    "aTextLabel4"
  248.     Constraints:    0x55
  249.     Label:    "Choose the themes to show \nin your custom legend:"
  250.     Listening:    1
  251. )
  252.  
  253. (AVCBBox.31
  254.     InternalName:    "NumCols"
  255.     Help:    "This is the number of columns that ArcView will try to use when creating your legend"
  256.     NextControl:    27
  257.     ContentKind:    4
  258.     Constraints:    0x55
  259.     Listening:    1
  260. )
  261.  
  262. (TextLabel.32
  263.     InternalName:    "aTextLabel301"
  264.     Constraints:    0x55
  265.     Label:    "Choose the number of\nlabel and symbol columns\nto display your legend:"
  266.     Listening:    1
  267. )
  268.  
  269. (AVLBox.33
  270.     InternalName:    "LegThemes"
  271.     Help:    "Legend Themes//This is the list of themes that will go into your legend"
  272.     NextControl:    27
  273.     ContentKind:    4
  274.     Constraints:    0x55
  275.     ColumnCount:    1
  276.     HorizontalScroll:    1
  277.     Listening:    1
  278.     VerticalScroll:    1
  279.     Select:    "Legends.Theme List Update"
  280.     SelectionStyle:    34
  281. )
  282.  
  283. (AVEnum.34
  284.     Name:    "LISTBOX_SELECTION_MULTIRANGE"
  285. )
  286.  
  287. (Butn.35
  288.     InternalName:    "AddThemes"
  289.     Help:    "Add to Legend//Once you select one or more themes on the left, click this to move them to the list on the right"
  290.     Icon:    36
  291.     Click:    "Legends.AddDrop Themes"
  292. )
  293.  
  294. (AVIcon.36
  295.     Name:    "ShiftRight"
  296.     Res:    "Icons.ShiftRight"
  297.  
  298. )
  299.  
  300. (Butn.37
  301.     InternalName:    "RemoveThemes"
  302.     Help:    "Remove from Legend//Removes the selected themes on the right from the legend"
  303.     Icon:    38
  304.     Click:    "Legends.AddDrop Themes"
  305. )
  306.  
  307. (AVIcon.38
  308.     Name:    "ShiftLeft"
  309.     Res:    "Icons.ShiftLeft"
  310.  
  311. )
  312.  
  313. (RectD.39
  314.     Left:    11.00000000000000
  315.     Top:    125.00000000000000
  316.     Right:    286.00000000000000
  317.     Bottom:    18.00000000000000
  318. )
  319.  
  320. (RectD.40
  321.     Left:    11.00000000000000
  322.     Top:    174.00000000000000
  323.     Right:    129.00000000000000
  324.     Bottom:    78.00000000000000
  325. )
  326.  
  327. (RectD.41
  328.     Left:    14.00000000000000
  329.     Top:    78.00000000000000
  330.     Right:    299.00000000000000
  331.     Bottom:    41.00000000000000
  332. )
  333.  
  334. (RectD.42
  335.     Left:    171.00000000000000
  336.     Top:    306.00000000000000
  337.     Right:    300.00000000000000
  338.     Bottom:    192.00000000000000
  339. )
  340.  
  341. (RectD.43
  342.     Left:    11.00000000000000
  343.     Top:    247.00000000000000
  344.     Right:    178.00000000000000
  345.     Bottom:    192.00000000000000
  346. )
  347.  
  348. (RectD.44
  349.     Left:    175.00000000000000
  350.     Top:    174.00000000000000
  351.     Right:    291.00000000000000
  352.     Bottom:    78.00000000000000
  353. )
  354.  
  355. (RectD.45
  356.     Left:    139.00000000000000
  357.     Top:    113.00000000000000
  358.     Right:    163.00000000000000
  359.     Bottom:    89.00000000000000
  360. )
  361.  
  362. (RectD.46
  363.     Left:    139.00000000000000
  364.     Top:    151.00000000000000
  365.     Right:    163.00000000000000
  366.     Bottom:    127.00000000000000
  367. )
  368.  
  369. (CPanel.47
  370.     InternalName:    "SymbolPanel"
  371.     Child:    48
  372.     Child:    55
  373.     Child:    62
  374.     Constraints:    0x55
  375.     ResBox:    63
  376.     ResBox:    64
  377.     ResBox:    65
  378.     VisibleBorder:    1
  379.     Listening:    1
  380. )
  381.  
  382. (CPanel.48
  383.     InternalName:    "aControlPanel10"
  384.     Child:    49
  385.     Child:    50
  386.     Child:    51
  387.     Constraints:    0x55
  388.     ResBox:    52
  389.     ResBox:    53
  390.     ResBox:    54
  391.     Label:    "Show area symbols as:"
  392.     VisibleBorder:    1
  393.     Listening:    1
  394. )
  395.  
  396. (RButn.49
  397.     InternalName:    "PolysAsRects"
  398.     Help:    "Display your fill symbols as rectangles"
  399.     Constraints:    0x55
  400.     Listening:    1
  401.     Label:    "Rectangles"
  402. )
  403.  
  404. (RButn.50
  405.     InternalName:    "PolysAsSquares"
  406.     Help:    "Display your fill symbols as squares"
  407.     Constraints:    0x55
  408.     Listening:    1
  409.     Label:    "Squares"
  410. )
  411.  
  412. (RButn.51
  413.     InternalName:    "PolysAsOvals"
  414.     Help:    "Display your fill symbols as ovals"
  415.     Constraints:    0x55
  416.     Listening:    1
  417.     Label:    "Ovals"
  418. )
  419.  
  420. (RectD.52
  421.     Left:    10.00000000000000
  422.     Top:    46.00000000000000
  423.     Right:    135.00000000000000
  424.     Bottom:    25.00000000000000
  425. )
  426.  
  427. (RectD.53
  428.     Left:    10.00000000000000
  429.     Top:    66.00000000000000
  430.     Right:    135.00000000000000
  431.     Bottom:    46.00000000000000
  432. )
  433.  
  434. (RectD.54
  435.     Left:    10.00000000000000
  436.     Top:    88.00000000000000
  437.     Right:    135.00000000000000
  438.     Bottom:    66.00000000000000
  439. )
  440.  
  441. (CPanel.55
  442.     InternalName:    "aControlPanel11"
  443.     Child:    56
  444.     Child:    57
  445.     Child:    58
  446.     Constraints:    0x55
  447.     ResBox:    59
  448.     ResBox:    60
  449.     ResBox:    61
  450.     Label:    "Show line symbols as:"
  451.     VisibleBorder:    1
  452.     Listening:    1
  453. )
  454.  
  455. (RButn.56
  456.     InternalName:    "LinesAsHorz"
  457.     Help:    "Display your line symbols as horizontal lines"
  458.     Constraints:    0x55
  459.     Listening:    1
  460.     Label:    "Horizontal lines"
  461. )
  462.  
  463. (RButn.57
  464.     InternalName:    "LinesAsZigZag"
  465.     Help:    "Display your line symbols as zig zag lines"
  466.     Constraints:    0x55
  467.     Listening:    1
  468.     Label:    "Zig zag lines"
  469. )
  470.  
  471. (RButn.58
  472.     InternalName:    "LinesAsEsses"
  473.     Help:    "Display your line symbols as S curves"
  474.     Constraints:    0x55
  475.     Listening:    1
  476.     Label:    "'S' curves"
  477. )
  478.  
  479. (RectD.59
  480.     Left:    8.00000000000000
  481.     Top:    45.00000000000000
  482.     Right:    133.00000000000000
  483.     Bottom:    24.00000000000000
  484. )
  485.  
  486. (RectD.60
  487.     Left:    8.00000000000000
  488.     Top:    67.00000000000000
  489.     Right:    133.00000000000000
  490.     Bottom:    45.00000000000000
  491. )
  492.  
  493. (RectD.61
  494.     Left:    8.00000000000000
  495.     Top:    88.00000000000000
  496.     Right:    133.00000000000000
  497.     Bottom:    67.00000000000000
  498. )
  499.  
  500. (TextLabel.62
  501.     InternalName:    "aTextLabel21"
  502.     Constraints:    0x55
  503.     Label:    "Choose the shapes to represent your legend's \nsymbols with:"
  504.     Listening:    1
  505. )
  506.  
  507. (RectD.63
  508.     Left:    64.00000000000000
  509.     Top:    143.00000000000000
  510.     Right:    232.00000000000000
  511.     Bottom:    47.00000000000000
  512. )
  513.  
  514. (RectD.64
  515.     Left:    64.00000000000000
  516.     Top:    241.00000000000000
  517.     Right:    232.00000000000000
  518.     Bottom:    145.00000000000000
  519. )
  520.  
  521. (RectD.65
  522.     Left:    21.00000000000000
  523.     Top:    49.00000000000000
  524.     Right:    261.00000000000000
  525.     Bottom:    15.00000000000000
  526. )
  527.  
  528. (CPanel.66
  529.     InternalName:    "SpacingPanel"
  530.     Child:    67
  531.     Child:    69
  532.     Child:    71
  533.     Child:    73
  534.     Child:    74
  535.     Child:    75
  536.     Child:    76
  537.     Child:    78
  538.     Child:    79
  539.     Child:    81
  540.     Child:    82
  541.     Child:    83
  542.     Child:    85
  543.     Child:    86
  544.     Child:    87
  545.     Child:    88
  546.     Child:    89
  547.     Child:    90
  548.     Child:    91
  549.     Child:    92
  550.     Child:    94
  551.     Child:    95
  552.     Constraints:    0x55
  553.     ResBox:    96
  554.     ResBox:    97
  555.     ResBox:    98
  556.     ResBox:    99
  557.     ResBox:    100
  558.     ResBox:    101
  559.     ResBox:    102
  560.     ResBox:    103
  561.     ResBox:    104
  562.     ResBox:    105
  563.     ResBox:    106
  564.     ResBox:    107
  565.     ResBox:    108
  566.     ResBox:    109
  567.     ResBox:    110
  568.     ResBox:    111
  569.     ResBox:    112
  570.     ResBox:    113
  571.     ResBox:    114
  572.     ResBox:    115
  573.     ResBox:    116
  574.     ResBox:    117
  575.     VisibleBorder:    1
  576.     Listening:    1
  577. )
  578.  
  579. (TextLine.67
  580.     InternalName:    "XTitleLegend"
  581.     Help:    "Enter the distance between the title and the other elements of the legend"
  582.     Text:    "0.4"
  583.     Constraints:    0x55
  584.     Listening:    1
  585.     TextType:    68
  586.     NextControl:    27
  587. )
  588.  
  589. (AVEnum.68
  590.     Name:    "TEXTLINE_TYPE_REAL"
  591. )
  592.  
  593. (TextLine.69
  594.     InternalName:    "XColumns"
  595.     Help:    "Enter the distance between each column of symbols and labels"
  596.     Text:    "0.25"
  597.     Constraints:    0x55
  598.     Listening:    1
  599.     TextType:    70
  600.     NextControl:    27
  601. )
  602.  
  603. (AVEnum.70
  604.     Name:    "TEXTLINE_TYPE_REAL"
  605. )
  606.  
  607. (TextLine.71
  608.     InternalName:    "XThemeSyms"
  609.     Help:    "Enter the amount of space (vertically) between a themes title and its symbols and labels"
  610.     Text:    "0.125"
  611.     Constraints:    0x55
  612.     Listening:    1
  613.     TextType:    72
  614.     NextControl:    27
  615. )
  616.  
  617. (AVEnum.72
  618.     Name:    "TEXTLINE_TYPE_REAL"
  619. )
  620.  
  621. (TextLabel.73
  622.     InternalName:    "aTextLabel28"
  623.     Constraints:    0x55
  624.     Label:    "inches"
  625.     Listening:    1
  626. )
  627.  
  628. (TextLabel.74
  629.     InternalName:    "aTextLabel29"
  630.     Constraints:    0x55
  631.     Label:    "inches"
  632.     Listening:    1
  633. )
  634.  
  635. (TextLabel.75
  636.     InternalName:    "aTextLabel30"
  637.     Constraints:    0x55
  638.     Label:    "inches"
  639.     Listening:    1
  640. )
  641.  
  642. (TextLine.76
  643.     InternalName:    "XSymsLabels"
  644.     Help:    "Enter the amount of space (horizontal) between symbls and their labels"
  645.     Text:    "0.25"
  646.     Constraints:    0x55
  647.     Listening:    1
  648.     TextType:    77
  649.     NextControl:    27
  650. )
  651.  
  652. (AVEnum.77
  653.     Name:    "TEXTLINE_TYPE_REAL"
  654. )
  655.  
  656. (TextLabel.78
  657.     InternalName:    "aTextLabel13"
  658.     Constraints:    0x55
  659.     Label:    "inches"
  660.     Listening:    1
  661. )
  662.  
  663. (TextLine.79
  664.     InternalName:    "XSymRows"
  665.     Help:    "Enter the amount of space (vertical) that will be placed between rows of symbols and labels"
  666.     Text:    "0.05"
  667.     Constraints:    0x55
  668.     Listening:    1
  669.     TextType:    80
  670.     NextControl:    27
  671. )
  672.  
  673. (AVEnum.80
  674.     Name:    "TEXTLINE_TYPE_REAL"
  675. )
  676.  
  677. (TextLabel.81
  678.     InternalName:    "aTextLabel15"
  679.     Constraints:    0x55
  680.     Label:    "inches"
  681.     Listening:    1
  682. )
  683.  
  684. (TextLabel.82
  685.     InternalName:    "aTextLabel16"
  686.     Constraints:    0x55
  687.     Label:    "Enter the amount of space to be placed\nbetween the elements of your legend."
  688.     Listening:    1
  689. )
  690.  
  691. (TextLine.83
  692.     InternalName:    "XThemes"
  693.     Help:    "Enter the amount of space to occur between themes (vertically)"
  694.     Text:    "0.05"
  695.     Constraints:    0x55
  696.     Listening:    1
  697.     TextType:    84
  698.     NextControl:    27
  699. )
  700.  
  701. (AVEnum.84
  702.     Name:    "TEXTLINE_TYPE_REAL"
  703. )
  704.  
  705. (TextLabel.85
  706.     InternalName:    "aTextLabel19"
  707.     Constraints:    0x55
  708.     Label:    "inches"
  709.     Listening:    1
  710. )
  711.  
  712. (TextLabel.86
  713.     InternalName:    "aTextLabel20"
  714.     Constraints:    0x55
  715.     Label:    "Title and legend:"
  716.     Listening:    1
  717. )
  718.  
  719. (TextLabel.87
  720.     InternalName:    "aTextLabel213"
  721.     Constraints:    0x55
  722.     Label:    "Columns:"
  723.     Listening:    1
  724. )
  725.  
  726. (TextLabel.88
  727.     InternalName:    "aTextLabel22"
  728.     Constraints:    0x55
  729.     Label:    "Themes:"
  730.     Listening:    1
  731. )
  732.  
  733. (TextLabel.89
  734.     InternalName:    "aTextLabel23"
  735.     Constraints:    0x55
  736.     Label:    "Theme names  \nand symbols:"
  737.     Listening:    1
  738. )
  739.  
  740. (TextLabel.90
  741.     InternalName:    "aTextLabel277"
  742.     Constraints:    0x55
  743.     Label:    "Symbols and labels:"
  744.     Listening:    1
  745. )
  746.  
  747. (TextLabel.91
  748.     InternalName:    "aTextLabel25"
  749.     Constraints:    0x55
  750.     Label:    "Rows of symbols:"
  751.     Listening:    1
  752. )
  753.  
  754. (TextLine.92
  755.     InternalName:    "XSymWidth"
  756.     Help:    "Enter the length of line symbols"
  757.     Text:    "0.4"
  758.     Constraints:    0x55
  759.     Listening:    1
  760.     TextType:    93
  761.     NextControl:    27
  762. )
  763.  
  764. (AVEnum.93
  765.     Name:    "TEXTLINE_TYPE_REAL"
  766. )
  767.  
  768. (TextLabel.94
  769.     InternalName:    "aTextLabel308"
  770.     Constraints:    0x55
  771.     Label:    "inches"
  772.     Listening:    1
  773. )
  774.  
  775. (TextLabel.95
  776.     InternalName:    "aTextLabel454"
  777.     Constraints:    0x55
  778.     Label:    "Length of line symbols:"
  779.     Listening:    1
  780. )
  781.  
  782. (RectD.96
  783.     Left:    165.00000000000000
  784.     Top:    85.00000000000000
  785.     Right:    237.00000000000000
  786.     Bottom:    65.00000000000000
  787. )
  788.  
  789. (RectD.97
  790.     Left:    165.00000000000000
  791.     Top:    110.00000000000000
  792.     Right:    237.00000000000000
  793.     Bottom:    90.00000000000000
  794. )
  795.  
  796. (RectD.98
  797.     Left:    165.00000000000000
  798.     Top:    159.00000000000000
  799.     Right:    237.00000000000000
  800.     Bottom:    139.00000000000000
  801. )
  802.  
  803. (RectD.99
  804.     Left:    242.00000000000000
  805.     Top:    87.00000000000000
  806.     Right:    300.00000000000000
  807.     Bottom:    67.00000000000000
  808. )
  809.  
  810. (RectD.100
  811.     Left:    242.00000000000000
  812.     Top:    109.00000000000000
  813.     Right:    300.00000000000000
  814.     Bottom:    91.00000000000000
  815. )
  816.  
  817. (RectD.101
  818.     Left:    242.00000000000000
  819.     Top:    133.00000000000000
  820.     Right:    300.00000000000000
  821.     Bottom:    117.00000000000000
  822. )
  823.  
  824. (RectD.102
  825.     Left:    165.00000000000000
  826.     Top:    190.00000000000000
  827.     Right:    237.00000000000000
  828.     Bottom:    170.00000000000000
  829. )
  830.  
  831. (RectD.103
  832.     Left:    242.00000000000000
  833.     Top:    158.00000000000000
  834.     Right:    300.00000000000000
  835.     Bottom:    142.00000000000000
  836. )
  837.  
  838. (RectD.104
  839.     Left:    165.00000000000000
  840.     Top:    215.00000000000000
  841.     Right:    237.00000000000000
  842.     Bottom:    195.00000000000000
  843. )
  844.  
  845. (RectD.105
  846.     Left:    242.00000000000000
  847.     Top:    191.00000000000000
  848.     Right:    300.00000000000000
  849.     Bottom:    175.00000000000000
  850. )
  851.  
  852. (RectD.106
  853.     Left:    15.00000000000000
  854.     Top:    55.00000000000000
  855.     Right:    280.00000000000000
  856.     Bottom:    17.00000000000000
  857. )
  858.  
  859. (RectD.107
  860.     Left:    165.00000000000000
  861.     Top:    134.00000000000000
  862.     Right:    237.00000000000000
  863.     Bottom:    114.00000000000000
  864. )
  865.  
  866. (RectD.108
  867.     Left:    242.00000000000000
  868.     Top:    214.00000000000000
  869.     Right:    300.00000000000000
  870.     Bottom:    198.00000000000000
  871. )
  872.  
  873. (RectD.109
  874.     Left:    14.00000000000000
  875.     Top:    88.00000000000000
  876.     Right:    168.00000000000000
  877.     Bottom:    69.00000000000000
  878. )
  879.  
  880. (RectD.110
  881.     Left:    14.00000000000000
  882.     Top:    112.00000000000000
  883.     Right:    168.00000000000000
  884.     Bottom:    93.00000000000000
  885. )
  886.  
  887. (RectD.111
  888.     Left:    14.00000000000000
  889.     Top:    138.00000000000000
  890.     Right:    168.00000000000000
  891.     Bottom:    119.00000000000000
  892. )
  893.  
  894. (RectD.112
  895.     Left:    14.00000000000000
  896.     Top:    175.00000000000000
  897.     Right:    168.00000000000000
  898.     Bottom:    140.00000000000000
  899. )
  900.  
  901. (RectD.113
  902.     Left:    14.00000000000000
  903.     Top:    194.00000000000000
  904.     Right:    168.00000000000000
  905.     Bottom:    175.00000000000000
  906. )
  907.  
  908. (RectD.114
  909.     Left:    14.00000000000000
  910.     Top:    218.00000000000000
  911.     Right:    168.00000000000000
  912.     Bottom:    199.00000000000000
  913. )
  914.  
  915. (RectD.115
  916.     Left:    165.00000000000000
  917.     Top:    239.00000000000000
  918.     Right:    237.00000000000000
  919.     Bottom:    219.00000000000000
  920. )
  921.  
  922. (RectD.116
  923.     Left:    242.00000000000000
  924.     Top:    237.00000000000000
  925.     Right:    300.00000000000000
  926.     Bottom:    221.00000000000000
  927. )
  928.  
  929. (RectD.117
  930.     Left:    14.00000000000000
  931.     Top:    241.00000000000000
  932.     Right:    171.00000000000000
  933.     Bottom:    222.00000000000000
  934. )
  935.  
  936. (CPanel.118
  937.     InternalName:    "TitlePanel"
  938.     Child:    119
  939.     Child:    121
  940.     Child:    122
  941.     Child:    123
  942.     Child:    124
  943.     Child:    125
  944.     Child:    126
  945.     Child:    127
  946.     Child:    128
  947.     Child:    129
  948.     Child:    130
  949.     Child:    131
  950.     Child:    132
  951.     Child:    133
  952.     Child:    135
  953.     Constraints:    0x55
  954.     ResBox:    136
  955.     ResBox:    137
  956.     ResBox:    138
  957.     ResBox:    139
  958.     ResBox:    140
  959.     ResBox:    141
  960.     ResBox:    142
  961.     ResBox:    143
  962.     ResBox:    144
  963.     ResBox:    145
  964.     ResBox:    146
  965.     ResBox:    147
  966.     ResBox:    148
  967.     ResBox:    149
  968.     ResBox:    150
  969.     VisibleBorder:    1
  970.     Listening:    1
  971. )
  972.  
  973. (TextLine.119
  974.     InternalName:    "LegTitle"
  975.     Help:    "Enter text for a title (optional)"
  976.     Constraints:    0x55
  977.     Listening:    1
  978.     TextType:    120
  979.     Empty:    "Legends.Title Update"
  980.     Changed:    "Legends.Title Update"
  981.     NextControl:    27
  982. )
  983.  
  984. (AVEnum.120
  985.     Name:    "TEXTLINE_TYPE_ALL"
  986. )
  987.  
  988. (AVCBBox.121
  989.     InternalName:    "TitleFont"
  990.     Help:    "Choose a font for your title"
  991.     NextControl:    27
  992.     ContentKind:    4
  993.     Constraints:    0x55
  994.     Listening:    1
  995.     Label:    "Title font:"
  996.     Select:    "Legends.Change Title Font"
  997. )
  998.  
  999. (AVCBBox.122
  1000.     InternalName:    "TitleSize"
  1001.     Help:    "Choose the size for your title"
  1002.     NextControl:    27
  1003.     ContentKind:    4
  1004.     Constraints:    0x55
  1005.     Listening:    1
  1006.     Label:    "Title size (pts):"
  1007. )
  1008.  
  1009. (AVCBBox.123
  1010.     InternalName:    "TitleStyle"
  1011.     Help:    "Choose the style for your title"
  1012.     NextControl:    27
  1013.     ContentKind:    4
  1014.     Constraints:    0x55
  1015.     Listening:    1
  1016.     Label:    "Title style:"
  1017. )
  1018.  
  1019. (TextLabel.124
  1020.     InternalName:    "aTextLabel5"
  1021.     Constraints:    0x55
  1022.     Label:    "Enter an optional title for your legend:"
  1023.     Listening:    1
  1024. )
  1025.  
  1026. (RButn.125
  1027.     InternalName:    "LL"
  1028.     Help:    "Positions the title at the bottom of the legend, aligning it with the left edge of the legend"
  1029.     Constraints:    0x55
  1030.     Listening:    1
  1031. )
  1032.  
  1033. (RButn.126
  1034.     InternalName:    "RC"
  1035.     Help:    "Positions the title to the right of the legend, vertically centering it"
  1036.     Constraints:    0x55
  1037.     Listening:    1
  1038. )
  1039.  
  1040. (TextLabel.127
  1041.     InternalName:    "TitleJustLab"
  1042.     Constraints:    0x55
  1043.     Label:    "Title positioning options:"
  1044.     Listening:    1
  1045. )
  1046.  
  1047. (RButn.128
  1048.     InternalName:    "UR"
  1049.     Help:    "Positions the title at the top of the legend, aligning it with the right edge of the legend"
  1050.     Constraints:    0x55
  1051.     Listening:    1
  1052. )
  1053.  
  1054. (RButn.129
  1055.     InternalName:    "UC"
  1056.     Help:    "Positions the title at the top of the legend, horizontally centering it"
  1057.     Constraints:    0x55
  1058.     Listening:    1
  1059. )
  1060.  
  1061. (RButn.130
  1062.     InternalName:    "CL"
  1063.     Help:    "Positions the title at the bottom of the legend, horizontally centering it"
  1064.     Constraints:    0x55
  1065.     Listening:    1
  1066. )
  1067.  
  1068. (RButn.131
  1069.     InternalName:    "LC"
  1070.     Help:    "Positions the title to the left of the legend, vertically centering it"
  1071.     Constraints:    0x55
  1072.     Listening:    1
  1073. )
  1074.  
  1075. (RButn.132
  1076.     InternalName:    "UL"
  1077.     Help:    "Positions the title at the top of the legend, aligning it with the left edge of the legend"
  1078.     Constraints:    0x55
  1079.     Listening:    1
  1080. )
  1081.  
  1082. (AVIBox.133
  1083.     InternalName:    "aIconBox30"
  1084.     Constraints:    0x55
  1085.     Icon:    134
  1086.     Listening:    1
  1087. )
  1088.  
  1089. (AVIcon.134
  1090.     Name:    "grat.bmp"
  1091.     Data:    4e442049 6d616765 00010014 00110000 
  1092.     Data:    01541213 12131213 12131213 12131213 
  1093.     Data:    12131213 12131300 00000000 00000000 
  1094.     Data:    00000000 00000000 00131300 00131213 
  1095.     Data:    12131300 12131213 12131300 00131300 
  1096.     Data:    13001313 13131300 13131313 13130013 
  1097.     Data:    00131200 12001213 12131200 12131213 
  1098.     Data:    12130013 00131300 13130013 00000000 
  1099.     Data:    00000000 13001313 00131200 12000000 
  1100.     Data:    12131200 12131213 00000013 00131300 
  1101.     Data:    00131300 13131300 13131313 00131300 
  1102.     Data:    00131200 12131200 12131200 12131213 
  1103.     Data:    00131213 00131300 13131313 00131300 
  1104.     Data:    13131300 13131313 00131300 00131213 
  1105.     Data:    00130000 00001200 12131300 00131300 
  1106.     Data:    13001300 00001300 13130000 00130013 
  1107.     Data:    00131200 12000013 12001200 12130013 
  1108.     Data:    12000013 00131300 00131300 13130000 
  1109.     Data:    13001313 00131300 00131200 12131213 
  1110.     Data:    00130000 12001200 12131213 00131300 
  1111.     Data:    00000000 00000000 00000000 00000000 
  1112.     Data:    00131213 12131213 12131213 12131213 
  1113.     Data:    12131213 12130000 04000000 00000000 
  1114.     Data:    80000080 00000080 80008000 00008000 
  1115.     Data:    80008080 0000c0c0 c000c0dc c000f0ca 
  1116.     Data:    a600f0fb ff00a4a0 a0008080 80000000 
  1117.     Data:    ff0000ff 000000ff ff00ff00 0000ff00 
  1118.     Data:    ff00ffff 0000ffff ff000000 00000000 
  1119.     Data:    80000080 00000080 80008000 00008000 
  1120.     Data:    80008080 0000c0c0 c000c0dc c000f0ca 
  1121.     Data:    a600f0fb ff00a4a0 a0008080 80000000 
  1122.     Data:    ff0000ff 000000ff ff00ff00 0000ff00 
  1123.     Data:    ff00ffff 0000ffff ff000000 00000000 
  1124.     Data:    80000080 00000080 80008000 00008000 
  1125.     Data:    80008080 0000c0c0 c000c0dc c000f0ca 
  1126.     Data:    a600f0fb ff00a4a0 a0008080 80000000 
  1127.     Data:    ff0000ff 000000ff ff00ff00 0000ff00 
  1128.     Data:    ff00ffff 0000ffff ff000000 00000000 
  1129.     Data:    80000080 00000080 80008000 00008000 
  1130.     Data:    80008080 0000c0c0 c000c0dc c000f0ca 
  1131.     Data:    a600f0fb ff00a4a0 a0008080 80000000 
  1132.     Data:    ff0000ff 000000ff ff00ff00 0000ff00 
  1133.     Data:    ff00ffff 0000ffff ff000000 00000000 
  1134.     Data:    80000080 00000080 80008000 00008000 
  1135.     Data:    80008080 0000c0c0 c000c0dc c000f0ca 
  1136.     Data:    a600f0fb ff00a4a0 a0008080 80000000 
  1137.     Data:    ff0000ff 000000ff ff00ff00 0000ff00 
  1138.     Data:    ff00ffff 0000ffff ff000000 00000000 
  1139.     Data:    80000080 00000080 80008000 00008000 
  1140.     Data:    80008080 0000c0c0 c000c0dc c000f0ca 
  1141.     Data:    a600f0fb ff00a4a0 a0008080 80000000 
  1142.     Data:    ff0000ff 000000ff ff00ff00 0000ff00 
  1143.     Data:    ff00ffff 0000ffff ff000000 00000000 
  1144.     Data:    80000080 00000080 80008000 00008000 
  1145.     Data:    80008080 0000c0c0 c000c0dc c000f0ca 
  1146.     Data:    a600f0fb ff00a4a0 a0008080 80000000 
  1147.     Data:    ff0000ff 000000ff ff00ff00 0000ff00 
  1148.     Data:    ff00ffff 0000ffff ff000000 00000000 
  1149.     Data:    80000080 00000080 80008000 00008000 
  1150.     Data:    80008080 0000c0c0 c000c0dc c000f0ca 
  1151.     Data:    a600f0fb ff00a4a0 a0008080 80000000 
  1152.     Data:    ff0000ff 000000ff ff00ff00 0000ff00 
  1153.     Data:    ff00ffff 0000ffff ff000000 00000000 
  1154.     Data:    80000080 00000080 80008000 00008000 
  1155.     Data:    80008080 0000c0c0 c000c0dc c000f0ca 
  1156.     Data:    a600f0fb ff00a4a0 a0008080 80000000 
  1157.     Data:    ff0000ff 000000ff ff00ff00 0000ff00 
  1158.     Data:    ff00ffff 0000ffff ff000000 00000000 
  1159.     Data:    80000080 00000080 80008000 00008000 
  1160.     Data:    80008080 0000c0c0 c000c0dc c000f0ca 
  1161.     Data:    a600f0fb ff00a4a0 a0008080 80000000 
  1162.     Data:    ff0000ff 000000ff ff00ff00 0000ff00 
  1163.     Data:    ff00ffff 0000ffff ff000000 00000000 
  1164.     Data:    80000080 00000080 80008000 00008000 
  1165.     Data:    80008080 0000c0c0 c000c0dc c000f0ca 
  1166.     Data:    a600f0fb ff00a4a0 a0008080 80000000 
  1167.     Data:    ff0000ff 000000ff ff00ff00 0000ff00 
  1168.     Data:    ff00ffff 0000ffff ff000000 00000000 
  1169.     Data:    80000080 00000080 80008000 00008000 
  1170.     Data:    80008080 0000c0c0 c000c0dc c000f0ca 
  1171.     Data:    a600f0fb ff00a4a0 a0008080 80000000 
  1172.     Data:    ff0000ff 000000ff ff00ff00 0000ff00 
  1173.     Data:    ff00ffff 0000ffff ff000000 00000000 
  1174.     Data:    80000080 00000080 80008000 00008000 
  1175.     Data:    8000f0fb ff00a4a0 a0008080 80000000 
  1176.     Data:    ff0000ff 000000ff ff00ff00 0000ff00 
  1177.     Data:    ff00ffff 0000ffff ff000002 00080007 
  1178.     Data:    00200001 00020000 00000000 0000
  1179. )
  1180.  
  1181. (RButn.135
  1182.     InternalName:    "RL"
  1183.     Help:    "Positions the title at the bottom of the legend, aligning it with the right edge of the legend"
  1184.     Constraints:    0x55
  1185.     Listening:    1
  1186. )
  1187.  
  1188. (RectD.136
  1189.     Left:    8.00000000000000
  1190.     Top:    58.00000000000000
  1191.     Right:    282.00000000000000
  1192.     Bottom:    38.00000000000000
  1193. )
  1194.  
  1195. (RectD.137
  1196.     Left:    15.00000000000000
  1197.     Top:    171.00000000000000
  1198.     Right:    284.00000000000000
  1199.     Bottom:    75.00000000000000
  1200. )
  1201.  
  1202. (RectD.138
  1203.     Left:    15.00000000000000
  1204.     Top:    193.00000000000000
  1205.     Right:    284.00000000000000
  1206.     Bottom:    97.00000000000000
  1207. )
  1208.  
  1209. (RectD.139
  1210.     Left:    15.00000000000000
  1211.     Top:    215.00000000000000
  1212.     Right:    284.00000000000000
  1213.     Bottom:    119.00000000000000
  1214. )
  1215.  
  1216. (RectD.140
  1217.     Left:    14.00000000000000
  1218.     Top:    39.00000000000000
  1219.     Right:    285.00000000000000
  1220.     Bottom:    19.00000000000000
  1221. )
  1222.  
  1223. (RectD.141
  1224.     Left:    191.00000000000000
  1225.     Top:    236.00000000000000
  1226.     Right:    210.00000000000000
  1227.     Bottom:    219.00000000000000
  1228. )
  1229.  
  1230. (RectD.142
  1231.     Left:    259.00000000000000
  1232.     Top:    201.00000000000000
  1233.     Right:    278.00000000000000
  1234.     Bottom:    184.00000000000000
  1235. )
  1236.  
  1237. (RectD.143
  1238.     Left:    15.00000000000000
  1239.     Top:    165.00000000000000
  1240.     Right:    185.00000000000000
  1241.     Bottom:    147.00000000000000
  1242. )
  1243.  
  1244. (RectD.144
  1245.     Left:    239.00000000000000
  1246.     Top:    168.00000000000000
  1247.     Right:    258.00000000000000
  1248.     Bottom:    151.00000000000000
  1249. )
  1250.  
  1251. (RectD.145
  1252.     Left:    215.00000000000000
  1253.     Top:    168.00000000000000
  1254.     Right:    234.00000000000000
  1255.     Bottom:    151.00000000000000
  1256. )
  1257.  
  1258. (RectD.146
  1259.     Left:    215.00000000000000
  1260.     Top:    236.00000000000000
  1261.     Right:    234.00000000000000
  1262.     Bottom:    219.00000000000000
  1263. )
  1264.  
  1265. (RectD.147
  1266.     Left:    171.00000000000000
  1267.     Top:    201.00000000000000
  1268.     Right:    191.00000000000000
  1269.     Bottom:    184.00000000000000
  1270. )
  1271.  
  1272. (RectD.148
  1273.     Left:    191.00000000000000
  1274.     Top:    168.00000000000000
  1275.     Right:    210.00000000000000
  1276.     Bottom:    151.00000000000000
  1277. )
  1278.  
  1279. (RectD.149
  1280.     Left:    190.00000000000000
  1281.     Top:    218.00000000000000
  1282.     Right:    254.00000000000000
  1283.     Bottom:    167.00000000000000
  1284. )
  1285.  
  1286. (RectD.150
  1287.     Left:    239.00000000000000
  1288.     Top:    236.00000000000000
  1289.     Right:    258.00000000000000
  1290.     Bottom:    219.00000000000000
  1291. )
  1292.  
  1293. (LButn.151
  1294.     InternalName:    "LFinish"
  1295.     Help:    "Accept this legend and close the Custom Legend Wizard"
  1296.     Label:    "Finish"
  1297.     Click:    "Legends.Create"
  1298. )
  1299.  
  1300. (LButn.152
  1301.     InternalName:    "LNext"
  1302.     Help:    "Show the next panel of the Custom Legend Wizard"
  1303.     Label:    "Next >>"
  1304.     Click:    "Legends.Update Panel"
  1305. )
  1306.  
  1307. (LButn.153
  1308.     InternalName:    "LBack"
  1309.     Help:    "Show the previous panel of the Custom Legend Wizard"
  1310.     Label:    "<< Back"
  1311.     Click:    "Legends.Update Panel"
  1312. )
  1313.  
  1314. (CPanel.154
  1315.     InternalName:    "BorderPanel"
  1316.     Child:    155
  1317.     Child:    156
  1318.     Child:    157
  1319.     Child:    158
  1320.     Child:    159
  1321.     Child:    164
  1322.     Child:    165
  1323.     Constraints:    0x55
  1324.     ResBox:    167
  1325.     ResBox:    168
  1326.     ResBox:    169
  1327.     ResBox:    170
  1328.     ResBox:    171
  1329.     ResBox:    172
  1330.     ResBox:    173
  1331.     VisibleBorder:    1
  1332.     Listening:    1
  1333. )
  1334.  
  1335. (TextLabel.155
  1336.     InternalName:    "aTextLabel166"
  1337.     Constraints:    0x55
  1338.     Label:    "Choose settings for your legend's border:"
  1339.     Listening:    1
  1340. )
  1341.  
  1342. (AVCBBox.156
  1343.     InternalName:    "BorderWidth"
  1344.     Help:    "Choose a width for your border"
  1345.     NextControl:    27
  1346.     ContentKind:    4
  1347.     Constraints:    0x55
  1348.     Listening:    1
  1349.     Label:    "Border width:"
  1350. )
  1351.  
  1352. (AVCBBox.157
  1353.     InternalName:    "BorderOLColor"
  1354.     Help:    "Choose a color for your border line"
  1355.     NextControl:    27
  1356.     ContentKind:    4
  1357.     Constraints:    0x55
  1358.     Listening:    1
  1359.     Label:    "Border color:"
  1360. )
  1361.  
  1362. (AVCBBox.158
  1363.     InternalName:    "BorderBGColor"
  1364.     Help:    "Choose a fill color for your border"
  1365.     NextControl:    27
  1366.     ContentKind:    4
  1367.     Constraints:    0x55
  1368.     Listening:    1
  1369.     Label:    "Background color:"
  1370. )
  1371.  
  1372. (CPanel.159
  1373.     InternalName:    "aControlPanel3"
  1374.     Child:    160
  1375.     Child:    161
  1376.     Constraints:    0x55
  1377.     ResBox:    162
  1378.     ResBox:    163
  1379.     Label:    "Special Effects:"
  1380.     VisibleBorder:    1
  1381.     Listening:    1
  1382. )
  1383.  
  1384. (AVCBox.160
  1385.     InternalName:    "UseDropShadow"
  1386.     Help:    "Add a drop-shadow behind your legend"
  1387.     Listening:    1
  1388.     Label:    "Drop-shadow"
  1389.     Constraints:    0x55
  1390. )
  1391.  
  1392. (AVCBox.161
  1393.     InternalName:    "RoundCorners"
  1394.     Help:    "Round the corners of your legend's border"
  1395.     Listening:    1
  1396.     Label:    "Round corners"
  1397.     Constraints:    0x55
  1398. )
  1399.  
  1400. (RectD.162
  1401.     Left:    15.00000000000000
  1402.     Top:    38.00000000000000
  1403.     Right:    148.00000000000000
  1404.     Bottom:    20.00000000000000
  1405. )
  1406.  
  1407. (RectD.163
  1408.     Left:    146.00000000000000
  1409.     Top:    38.00000000000000
  1410.     Right:    267.00000000000000
  1411.     Bottom:    20.00000000000000
  1412. )
  1413.  
  1414. (TextLabel.164
  1415.     InternalName:    "blah"
  1416.     Constraints:    0x55
  1417.     Label:    "Border\nstyle:"
  1418.     Listening:    1
  1419. )
  1420.  
  1421. (AVLBox.165
  1422.     InternalName:    "BorderStyle"
  1423.     Help:    "Choose a border style"
  1424.     NextControl:    27
  1425.     ContentKind:    4
  1426.     Constraints:    0x55
  1427.     ColumnCount:    1
  1428.     Listening:    1
  1429.     VerticalScroll:    1
  1430.     SelectionStyle:    166
  1431. )
  1432.  
  1433. (AVEnum.166
  1434.     Name:    "LISTBOX_SELECTION_SINGLECELL"
  1435. )
  1436.  
  1437. (RectD.167
  1438.     Left:    12.00000000000000
  1439.     Top:    29.00000000000000
  1440.     Right:    300.00000000000000
  1441.     Bottom:    9.00000000000000
  1442. )
  1443.  
  1444. (RectD.168
  1445.     Left:    32.00000000000000
  1446.     Top:    233.00000000000000
  1447.     Right:    272.00000000000000
  1448.     Bottom:    122.00000000000000
  1449. )
  1450.  
  1451. (RectD.169
  1452.     Left:    32.00000000000000
  1453.     Top:    266.00000000000000
  1454.     Right:    272.00000000000000
  1455.     Bottom:    144.00000000000000
  1456. )
  1457.  
  1458. (RectD.170
  1459.     Left:    32.00000000000000
  1460.     Top:    283.00000000000000
  1461.     Right:    272.00000000000000
  1462.     Bottom:    164.00000000000000
  1463. )
  1464.  
  1465. (RectD.171
  1466.     Left:    16.00000000000000
  1467.     Top:    244.00000000000000
  1468.     Right:    284.00000000000000
  1469.     Bottom:    194.00000000000000
  1470. )
  1471.  
  1472. (RectD.172
  1473.     Left:    32.00000000000000
  1474.     Top:    73.00000000000000
  1475.     Right:    95.00000000000000
  1476.     Bottom:    41.00000000000000
  1477. )
  1478.  
  1479. (RectD.173
  1480.     Left:    97.00000000000000
  1481.     Top:    116.00000000000000
  1482.     Right:    272.00000000000000
  1483.     Bottom:    38.00000000000000
  1484. )
  1485.  
  1486. (LButn.174
  1487.     InternalName:    "LCancel"
  1488.     Help:    "Close the Custom Legend Wizard with out adding a legend"
  1489.     Label:    "Cancel"
  1490.     Click:    "Legends.Update Panel"
  1491. )
  1492.  
  1493. (CPanel.175
  1494.     InternalName:    "IntroPanel"
  1495.     Child:    176
  1496.     Child:    177
  1497.     Child:    178
  1498.     Constraints:    0x55
  1499.     ResBox:    179
  1500.     ResBox:    180
  1501.     ResBox:    181
  1502.     VisibleBorder:    1
  1503.     Listening:    1
  1504. )
  1505.  
  1506. (TextLabel.176
  1507.     InternalName:    "aTextLabel193"
  1508.     Constraints:    0x55
  1509.     Label:    "The Custom Legend wizard helps you \ncreate a graphical legend in your layout.\nYou can create a legend for any view in \nyour project, choose which themes will be\nshown,  the number of columns to display, \nand various other custom settings."
  1510.     Listening:    1
  1511. )
  1512.  
  1513. (TextLabel.177
  1514.     InternalName:    "aTextLabel293"
  1515.     Constraints:    0x55
  1516.     Label:    "Click Next to proceed."
  1517.     Listening:    1
  1518. )
  1519.  
  1520. (TextLabel.178
  1521.     InternalName:    "aTextLabel1"
  1522.     Constraints:    0x55
  1523.     Label:    "You can click Preview at any time to see \nhow the settings you have chosen affect \nthe appearance of your legend. "
  1524.     Listening:    1
  1525. )
  1526.  
  1527. (RectD.179
  1528.     Left:    8.00000000000000
  1529.     Top:    133.00000000000000
  1530.     Right:    292.00000000000000
  1531.     Bottom:    9.00000000000000
  1532. )
  1533.  
  1534. (RectD.180
  1535.     Left:    8.00000000000000
  1536.     Top:    245.00000000000000
  1537.     Right:    220.00000000000000
  1538.     Bottom:    225.00000000000000
  1539. )
  1540.  
  1541. (RectD.181
  1542.     Left:    7.00000000000000
  1543.     Top:    216.00000000000000
  1544.     Right:    299.00000000000000
  1545.     Bottom:    138.00000000000000
  1546. )
  1547.  
  1548. (LButn.182
  1549.     InternalName:    "aLabelButton1"
  1550.     Label:    "Help..."
  1551.     Click:    "Legends.Help"
  1552. )
  1553.  
  1554. (RectD.183
  1555.     Left:    8.00000000000000
  1556.     Top:    279.00000000000000
  1557.     Right:    480.00000000000000
  1558.     Bottom:    9.00000000000000
  1559. )
  1560.  
  1561. (RectD.184
  1562.     Left:    803.00000000000000
  1563.     Top:    278.00000000000000
  1564.     Right:    1109.00000000000000
  1565.     Bottom:    25.00000000000000
  1566. )
  1567.  
  1568. (RectD.185
  1569.     Left:    314.00000000000000
  1570.     Top:    590.00000000000000
  1571.     Right:    620.00000000000000
  1572.     Bottom:    336.00000000000000
  1573. )
  1574.  
  1575. (RectD.186
  1576.     Top:    592.00000000000000
  1577.     Right:    306.00000000000000
  1578.     Bottom:    338.00000000000000
  1579. )
  1580.  
  1581. (RectD.187
  1582.     Left:    492.00000000000000
  1583.     Top:    277.00000000000000
  1584.     Right:    798.00000000000000
  1585.     Bottom:    24.00000000000000
  1586. )
  1587.  
  1588. (RectD.188
  1589.     Left:    398.00000000000000
  1590.     Top:    309.00000000000000
  1591.     Right:    480.00000000000000
  1592.     Bottom:    285.00000000000000
  1593. )
  1594.  
  1595. (RectD.189
  1596.     Left:    312.00000000000000
  1597.     Top:    309.00000000000000
  1598.     Right:    393.00000000000000
  1599.     Bottom:    285.00000000000000
  1600. )
  1601.  
  1602. (RectD.190
  1603.     Left:    225.00000000000000
  1604.     Top:    309.00000000000000
  1605.     Right:    307.00000000000000
  1606.     Bottom:    285.00000000000000
  1607. )
  1608.  
  1609. (RectD.191
  1610.     Left:    622.00000000000000
  1611.     Top:    591.00000000000000
  1612.     Right:    927.00000000000000
  1613.     Bottom:    337.00000000000000
  1614. )
  1615.  
  1616. (RectD.192
  1617.     Left:    139.00000000000000
  1618.     Top:    309.00000000000000
  1619.     Right:    221.00000000000000
  1620.     Bottom:    285.00000000000000
  1621. )
  1622.  
  1623. (RectD.193
  1624.     Left:    930.00000000000000
  1625.     Top:    592.00000000000000
  1626.     Right:    1236.00000000000000
  1627.     Bottom:    338.00000000000000
  1628. )
  1629.  
  1630. (RectD.194
  1631.     Left:    8.00000000000000
  1632.     Top:    309.00000000000000
  1633.     Right:    90.00000000000000
  1634.     Bottom:    285.00000000000000
  1635. )
  1636.  
  1637. (Nil.195
  1638. )
  1639.  
  1640. (Script.196
  1641.     Name:    "Legends.Create"
  1642.     SourceCode:    "thelayout = av.GetActiveDoc\nif ( Not (theLayout.is(Layout))) then\n  Msgbox.Info(\"Please make your layout active again.\",\"Oops\")\n  return nil\nend\n\nLgraphics = thelayout.GetGraphics\nMTD = av.FindDialog(\"Legends Multi-Column Legend\")\n\nif (self.GetLabel = \"Finish\") then\n  m = LGraphics.FindByName(\"_Try_It\")  \n  m.SetName(\"Finished Legend\")\n  MTD.Close\n  return nil\nend\n\n\nBackButton = MTD.FindByName(\"LBack\")\nNextButton = MTD.FindByName(\"LNext\")\nFinishButton = MTD.FindByName(\"LFinish\")\n\nVFrame = MTD.FindByName(\"Vn
  1643. ame\").GetSelection\nNumCols = MTD.FindByName(\"NumCols\").GetSelection\nFinishButton = MTD.FindByName(\"LFinish\")\nLegTitle = MTD.FindByName(\"LegTitle\").GetText\nTitleFont = MTD.FindByName(\"TitleFont\").GetSelection\nTitleSize = MTD.FindByName(\"TitleSize\").GetSelection.AsNumber\nTitleStyle = MTD.FindByName(\"TitleStyle\").GetSelection\nif (MTD.FindByName(\"TitleStyle\").GetList.FindByValue(\"Normal\") <> -1) then\n  FontNorm = \"Normal\"\nelse\n  FontNorm = MTD.FindByName(\"TitleStyle\").GetList.Get(0)\nend\n\nBorderStyle = MTD.FindB
  1644. yName(\"BorderStyle\").GetCurrentRow\nBorderWidth = MTD.FindByName(\"BorderWidth\").GetSelection.AsNumber\nBorderOLColor = MTD.FindByName(\"BorderOLColor\").GetSelection\nBorderBGColor = MTD.FindByName(\"BorderBGColor\").GetSelection\nUseDropShadow = MTD.FindByName(\"UseDropShadow\").IsSelected\nRoundCorners = MTD.FindByName(\"RoundCorners\").IsSelected\n\nPolysAsRects = MTD.FindByName(\"PolysAsRects\").IsSelected\nPolysAsSquares = MTD.FindByName(\"PolysAsSquares\").IsSelected\nPolysAsOvals = MTD.FindByName(\"PolysAsOvals\").IsSelect
  1645. ed\nLinesAsHorz = MTD.FindByName(\"LinesAsHorz\").IsSelected\nLinesAsZigZag = MTD.FindByName(\"LinesAsZigZag\").IsSelected\nLinesAsEsses = MTD.FindByName(\"LinesAsEsses\").IsSelected\n\nXTitleLegend = MTD.FindByName(\"XTitleLegend\").GetText.AsNumber\nXColumns = MTD.FindByName(\"XColumns\").GetText.AsNumber\nXThemes = MTD.FindByName(\"XThemes\").GetText.AsNumber\nXThemeSyms = MTD.FindByName(\"XThemeSyms\").GetText.AsNumber\nXSymsLabels = MTD.FindByName(\"XSymsLabels\").GetText.AsNumber\nXSymRows = MTD.FindByName(\"XSymRows\").GetText.
  1646. AsNumber\nXSymWidth = MTD.FindByName(\"XSymWidth\").GetText.AsNumber\n\nUL = MTD.FindByName(\"UL\").IsSelected\nUC = MTD.FindByName(\"UC\").IsSelected\nUR = MTD.FindByName(\"UR\").IsSelected\nLC = MTD.FindByName(\"LC\").IsSelected\nRC = MTD.FindByName(\"RC\").IsSelected\nLL = MTD.FindByName(\"LL\").IsSelected\nCL = MTD.FindByName(\"CL\").IsSelected\nRL = MTD.FindByName(\"RL\").IsSelected\n\nLegFlatness = av.GetProject.GetLegendLineFlatness\nlsw = XSymWidth\nllh = 0.2 * (100 - LegFlatness) /100\n\nthelayout = av.GetActiveDoc\nLgraphics = thel
  1647. ayout.GetGraphics\nRectOrigin = FinishButton.GetObjectTag\n\ntheView = av.GetProject.FindDoc(VFrame)\ntheThemesToUse = MTD.FindByName(\"LegThemes\").GetList\n\nif (NumCols <> \"One per theme\") then\n  MaxNumCols = NumCols.AsNumber\nend\n\nif (theThemesToUse.Count = 1) then\n  DefTitle = LegTitle\n  ThemeHasTitle = false\nelse\n  DefTitle = LegTitle\n  ThemeHasTitle = true\nend\nif (DefTitle.Count < 1) then\n  LegendHasTitle = false\nelse\n  LegendHasTitle = true\nend\n\n'*********************************************************\n'* S
  1648. trategy is to make one column per theme then         *\n'* if the legend configuration strategy is based on      *\n'* columns this will also be used, but more than one     *\n'* theme may be in a column, but only very large         *\n'* themes will be permitted to be broken across columns. *\n'* If the strategy is based on rows, then a separate     *\n'* routine will be used to create the legend, but it     *\n'* will still be theme based.                            *\n'*******************************************
  1649. **************\n\nif (NumCols = \"One per theme\")then\n  NextGraphicOrigin = (100@100)\n  if (LegendHasTitle) then\n    NextGraphicOrigin = NextGraphicOrigin + (0@(XTitleLegend))\n    theTitle = GraphicText.Make(DefTitle,NextGraphicOrigin)\n    theTitle.GetSymbol.SetFont(Font.Make(TitleFont,TitleStyle))\n    theTitle.GetSymbol.SetSize(TitleSize)\n    theTitle.SetDisplay(theLayout.GetDisplay)\n    theTitle.SetObjectTag(\"cl\")\n    theTitle.SetSelected(false)\n    NextGraphicOrigin = NextGraphicOrigin - (0@XTitleLegend)\n  
  1650. end\n  for each thm in theThemesToUse\n    tt = theView.FindTheme(thm)\n    if (tt = nil) then return nil end\n    theLegend = theView.FindTheme(thm).GetLegend\n    ss = XSymRows + 0.2\n    if ((tt.Is(FTheme)) OR (tt.GetClass.GetClassName = \"DBTheme\") OR (tt.GetClass.GetClassName = \"GTheme\") OR (tt.GetClass.GetClassName = \"BaseMapTheme\")) then\n      theClasses = theLegend.GetClassifications\n      theSymbols = theLegend.GetSymbols\n      ThemeIsSimple = false\n      ThemeHasTitle = true\n      if (theLegend.GetLegend
  1651. Type = #LEGEND_TYPE_SIMPLE) then\n        ThemeHasTitle = false\n        ThemeIsSimple = true\n      end\n      if (ThemeHasTitle) then\n        theThemeTitle = GraphicText.Make(thm,NextGraphicOrigin)\n        theThemeTitle.GetSymbol.SetFont(Font.Make(TitleFont,FontNorm))\n        theThemeTitle.GetSymbol.SetSize(12)\n        theThemeTitle.SetDisplay(thelayout.GetDisplay)\n        ThemeTitleHeight = theThemeTitle.GetBounds.GetHeight\n        Lgraphics.AddBatch(theThemeTitle)\n        theThemeTitle.SetObjectTag(\"cl\")\n  
  1652.       theThemeTitle.SetSelected(false)\n        NextGraphicOrigin = NextGraphicOrigin - (0@(XThemeSyms + ThemeTitleHeight))\n      end\n      for each c in 0..((theClasses.Count) - 1)\n        if ((theLegend.IsNoDataClassDisplayed.Not) and (theClasses.Get(c).GetLabel = \"No Data\")) then\n          continue\n        end \n        itemLabel = theClasses.Get(c).GetLabel\n        if ((itemLabel = Nil) or (itemLabel = \"\")) then 'Handle for SingleSymbol Legends with No Label\n          itemLabel = thm\n        end\n        t
  1653. heLabel = GraphicText.Make( itemLabel,( NextGraphicOrigin + ((XSymWidth + XSymsLabels)@0.05) ) )\n        theLabel.GetSymbol.SetFont(Font.make(TitleFont,FontNorm))\n        theLabel.GetSymbol.SetSize(10)\n        theLabel.SetDisplay(thelayout.GetDisplay)     \n        theSym = theSymbols.Get(c).Clone\n        if (theSym.Is(Fill)) then\n          if (PolysAsRects) then\n            newgraphic = GraphicShape.Make(Rect.Make(NextGraphicOrigin,(lsw@0.2))) 'Standard Rect\n          elseif (PolysAsOvals) then\n            
  1654. newgraphic = GraphicShape.Make(Oval.Make(NextGraphicOrigin,(lsw@0.2)))  'Oval\n          elseif (PolysAsSquares) then\n            newgraphic = GraphicShape.Make(Rect.Make( (NextGraphicOrigin + ((0.25*lsw)@0)) ,(0.2@0.2)  )) 'Square\n          end\n        elseif (theSym.Is(Pen)) then\n          if (LinesAsEsses) then\n            newgraphic = GraphicShape.Make(PolyLine.Make({{(0@0),(0.125@0.625),(0.25@0.875),(0.375@0.97),(0.5@1),(0.625@0.97),(0.75@0.875),(0.875@0.725),(1@0.5),(1.125@0.275),(1.25@0.125),(1.375@0.
  1655. 03),(1.5@0),(1.625@0.03),(1.75@0.125),(1.875@0.375),(2@1)}}))  'Squiggle        \n            newgraphic.SetOrigin(NextGraphicOrigin)\n            newgraphic.SetBounds(Rect.Make(NextGraphicOrigin,(XSymWidth@0.2)))\n            newGraphic.SetExtent(XSymWidth@llh)\n        elseif (LinesAsHorz) then\n            newgraphic = GraphicShape.Make(Line.Make( (NextGraphicOrigin + (0@0.11)),(NextGraphicOrigin +(XSymWidth@0.11)) )   )\n          elseif (LinesAsZigZag) then\n            newgraphic = GraphicShape.Make(PolyLine
  1656. .Make({{(0@0),(0.133334@0.2),(0.2666667@0),(0.4@0.2)}}))\n            newgraphic.SetOrigin(NextGraphicOrigin)\n            newGraphic.SetExtent(XSymWidth@llh)\n          end\n        elseif (theSym.Is(Marker)) then        \n          newgraphic = GraphicShape.Make(NextGraphicOrigin + ( ((lsw/2))@0.1) )\n          if(thesym.GetSize > 18) then\n            ss = thesym.GetSize/72\n          end\n        elseif (theSym.Is(TextSymbol)) then\n          newgraphic = GraphicText.Make(\"Text\",NextGraphicOrigin)\n        end\n   
  1657. \n        newgraphic.SetSymbol(thesym)\n        newgraphic.GetSymbol.SetColorLock(true)\n        newgraphic.SetObjectTag(\"cl\")\n        theLabel.SetObjectTag(\"cl\")\n        Lgraphics.AddBatch(theLabel)\n        Lgraphics.AddBatch(newgraphic)\n        newgraphic.SetSelected(true)\n        theLabel.SetSelected(true)\n        NextGraphicOrigin = NextGraphicOrigin - (0@ss)\n      end\n    elseif (tt.Is(ITheme)) then\n      itemLabel = thm\n      theLabel = GraphicText.Make( itemLabel,( NextGraphicOrigin + ((XSymWidth + XSym
  1658. sLabels)@0.05) ) )\n      theLabel.GetSymbol.SetFont(Font.make(TitleFont,FontNorm))\n      theLabel.GetSymbol.SetSize(10)\n      theLabel.SetDisplay(thelayout.GetDisplay)\n      newgraphic = GraphicText.Make(\"  Image\",(NextGraphicOrigin + (0@0.05)))\n      newgraphic.GetSymbol.SetFont(Font.make(TitleFont,FontNorm))\n      newgraphic.GetSymbol.SetSize(10)\n      newgraphic.SetDisplay(thelayout.GetDisplay)\n      newgraphic.GetSymbol.SetColorLock(true)\n      newgraphic.SetObjectTag(\"cl\")\n      theLabel.SetObjectTag(\"
  1659. cl\")\n      Lgraphics.AddBatch(theLabel)\n      Lgraphics.AddBatch(newgraphic)\n      newgraphic.SetSelected(true)\n      theLabel.SetSelected(true)\n      NextGraphicOrigin = NextGraphicOrigin - (0@ss)\n      themeHasTitle = false\n    else\n      continue\n    end\n    'Then Center the Title\n    if (themeHasTitle) then\n      'Group the individual components of the legend\n      Lgraphics.GroupSelected\n      components = Lgraphics.GetSelected.Get(0)\n      ComponentsWidth = components.GetBounds.GetWidth\n      TitleWid
  1660. th = theThemeTitle.GetBounds.GetWidth\n      if (ComponentsWidth >= TitleWidth) then\n        oldOrigin = theThemeTitle.GetOrigin\n        newOrigin = oldOrigin + ( ((ComponentsWidth - TitleWidth)/2)@0 )\n        theThemeTitle.SetOrigin(newOrigin)\n      else\n        oldOrigin = components.GetOrigin\n        newOrigin = oldOrigin + ( ((TitleWidth - ComponentsWidth)/2)@0 )\n        components.SetOrigin(newOrigin)\n      end\n      theThemeTitle.SetSelected(true) \n      Lgraphics.GroupSelected\n      Lgraphics.GetSelec
  1661. ted.Get(0).SetObjectTag(\"cl\")\n    else\n      Lgraphics.GroupSelected            \n      Lgraphics.GetSelected.Get(0).SetObjectTag(\"cl\")\n    end\n    PartsSoFar = Lgraphics.FindAllByObjectTag(\"cl\")\n    for each h in PartsSoFar\n      h.SetSelected(true)\n    end\n    Lgraphics.GroupSelected\n    WidthSoFar = Lgraphics.GetSelected.Get(0).GetBounds.GetWidth\n    Lgraphics.UngroupSelected\n    coladj = lsw.Clone\n    if (colAdj < 0.4) then\n      colAdj = 0.4\n    end\n    NextGraphicOrigin = ((100 + XColumns + colAdj)@100
  1662. ) + (WidthSoFar@0)\n    Lgraphics.UnSelectAll\n  end 'Processing of themes\n  theLegParts = Lgraphics.FindAllByObjectTag(\"cl\")\n  for each gi in theLegParts\n    gi.SetSelected(true)\n  end\n\n\nelse\n  TotalHeight = 0\n  ThemeHeights = {}\n  ThemeHeight = 0\n  for each thm in theThemesToUse\n    tt = theView.FindTheme(thm)\n    if (tt = nil) then return nil end\n    if ((tt.Is(FTheme)) OR (tt.GetClass.GetClassName = \"DBTheme\") OR (tt.GetClass.GetClassName = \"GTheme\") OR (tt.GetClass.GetClassName = \"BaseMapTheme\")) then\n  
  1663.     theLegend = theView.FindTheme(thm).GetLegend\n      ss = XSymRows + 0.2\n      theSymbols = theLegend.GetSymbols\n      theClasses = theLegend.GetClassifications\n      theThemeTitle = GraphicText.Make(\"KK\",(1@1))\n      theThemeTitle.GetSymbol.SetSize(12)\n      theThemeTitle.SetDisplay(thelayout.GetDisplay)\n      ThemeTitleHeight = theThemeTitle.GetBounds.GetHeight\n      if (theLegend.GetLegendType = #LEGEND_TYPE_SIMPLE) then\n        theSymbols = theLegend.GetSymbols\n        ThemeHeight = XSymRows + 0.2\n   
  1664.      if (theSymbols.Get(0).Is(Marker)) then\n          if (theSymbols.Get(0).GetSize > 18) then\n            ThemeHeight = (theSymbols.Get(0).GetSize/72)\n          end\n        end\n      else\n        ThemeHeight = XThemeSyms + ThemeTitleHeight\n        for each s in 0..((theSymbols.Count) - 1)\n          if ((theLegend.IsNoDataClassDisplayed.Not) and (theClasses.Get(s).GetLabel = \"No Data\")) then\n            continue\n          end \n          ThemeHeight = ThemeHeight + XSymRows + 0.2\n          if (theSymbols.Get
  1665. (s).Is(Marker)) then\n            if (theSymbols.Get(s).GetSize > 18) then\n              ThemeHeight = ThemeHeight + (theSymbols.Get(s).GetSize/72) + XThemes\n            end\n          end\n        end  \n      end\n    elseif (tt.Is(ITheme)) then\n      ThemeHeight = XSymRows + 0.2\n    else\n      continue\n    end\n    ThemeHeights.Add((ThemeHeight))\n    TotalHeight = TotalHeight + ThemeHeight   \n    ThemeHeight = 0 \n  end\n\n  MinColumnHeight = TotalHeight / MaxNumCols \n  NextGraphicOrigin = (100@100)\n  SetRunningH
  1666. eightToZero = false\n  RunningHeightTotal = 0\n  if (LegendHasTitle) then\n    NextGraphicOrigin = NextGraphicOrigin + (0@XTitleLegend)\n    theTitle = GraphicText.Make(DefTitle,NextGraphicOrigin)\n    theTitle.GetSymbol.SetFont(Font.Make(TitleFont,TitleStyle))\n    theTitle.GetSymbol.SetSize(TitleSize)\n    theTitle.SetDisplay(theLayout.GetDisplay)\n    theTitle.SetObjectTag(\"cl\")\n    theTitle.SetSelected(false)\n    NextGraphicOrigin = NextGraphicOrigin - (0@XTitleLegend)\n  end\n  TitleList = {}\n  FirstGroup = true
  1667. \n  for each thm in theThemesToUse\n    StartedANewColumn = false\n    tt = theView.FindTheme(thm)\n    if ((tt.Is(FTheme)) OR (tt.GetClass.GetClassName = \"DBTheme\") OR (tt.GetClass.GetClassName = \"GTheme\") OR (tt.GetClass.GetClassName = \"BaseMapTheme\")) then\n      theLegend = tt.GetLegend\n      theClasses = theLegend.GetClassifications\n      theSymbols = theLegend.GetSymbols\n      if (theLegend.GetLegendType = #LEGEND_TYPE_SIMPLE) then\n        ThemeHasTitle = false\n      else\n        ThemeHasTitle = true\n     
  1668.  end\n      \n      if (ThemeHasTitle) then\n        '** Check to see if there's room at the bottom of the column to start another theme\n        if (RunningHeightTotal >= (MinColumnHeight - (ThemeTitleHeight + XThemeSyms + 0.2 + XSymRows)) ) then\n          Lgraphics.GroupSelected\n          if (Lgraphics.GetSelected.Count = 0) then\n            jh = Lgraphics.FindAllByObjectTag(\"cl\")\n            if (jh <> nil) then             \n              for each gy in jh\n                gy.SetSelected(true)\n              en
  1669. d\n              Lgraphics.GroupSelected\n            end\n          end\n          Lgraphics.GetSelected.Get(0).SetObjectTag(\"cl\")\n          PartsSoFar = Lgraphics.FindAllByObjectTag(\"cl\")\n          for each h in PartsSoFar\n            h.SetSelected(true)\n          end\n          Lgraphics.GroupSelected\n          WidthSoFar = Lgraphics.GetSelected.Get(0).GetBounds.GetWidth\n          Lgraphics.UngroupSelected\n          NextGraphicOrigin = ((100+XColumns)@100) + (WidthSoFar@0)\n          Lgraphics.UnSelectAll\n    
  1670.       RunningHeightTotal = 0\n          StartedANewColumn = true      \n        end\n  \n        theThemeTitle = GraphicText.Make(thm,NextGraphicOrigin)\n        theThemeTitle.GetSymbol.SetSize(12)\n        theThemeTitle.GetSymbol.SetFont(Font.Make(TitleFont,FontNorm))\n        theThemeTitle.SetDisplay(thelayout.GetDisplay)\n        theTitleHeight = theThemeTitle.GetBounds.GetHeight\n        Lgraphics.AddBatch(theThemeTitle)\n        theThemeTitle.SetObjectTag(\"cl\")\n        theThemeTitle.SetName(\"ThemeTitle\")\n       
  1671.  theThemeTitle.SetSelected(false)\n        NextGraphicOrigin = NextGraphicOrigin - (0@(XThemeSyms + theTitleHeight))\n        RunningHeightTotal = RunningHeightTotal + XThemeSyms + theTitleHeight\n      end\n      for each c in 0..((theClasses.Count) - 1)\n        if ((theLegend.IsNoDataClassDisplayed.Not) and (theClasses.Get(c).GetLabel = \"No Data\")) then\n          continue\n        end \n        itemLabel = theClasses.Get(c).GetLabel\n        if ((itemLabel = Nil) or (itemLabel = \"\")) then 'Handle for SingleSymbo
  1672. l Legends with No Label\n          itemLabel = thm\n        end\n        theLabel = GraphicText.Make( itemLabel,( NextGraphicOrigin + ((XSymWidth + XSymsLabels)@0.05) ) )\n        theLabel.GetSymbol.SetFont(Font.make(TitleFont,FontNorm))\n        theLabel.GetSymbol.SetSize(10)\n        theLabel.SetDisplay(thelayout.GetDisplay)\n        theSym = theSymbols.Get(c).Clone\n        ss = XSymRows + 0.2\n        if (theSym.Is(Fill)) then\n          if (PolysAsRects) then\n            newgraphic = GraphicShape.Make(Rect.Make(
  1673. NextGraphicOrigin,(lsw@0.2))) 'Standard Rect\n          elseif (PolysAsOvals) then\n            newgraphic = GraphicShape.Make(Oval.Make(NextGraphicOrigin,(lsw@0.2)))  'Oval\n          elseif (PolysAsSquares) then\n            newgraphic = GraphicShape.Make(Rect.Make(  (NextGraphicOrigin + ((0.25*lsw)@0)) ,(0.2@0.2) )) 'Standard Rect\n          end\n        elseif (theSym.Is(Pen)) then\n          if (LinesAsEsses) then\n            newgraphic = GraphicShape.Make(PolyLine.Make({{(0@0),(0.125@0.625),(0.25@0.875),(0.3
  1674. 75@0.97),(0.5@1),(0.625@0.97),(0.75@0.875),(0.875@0.725),(1@0.5),(1.125@0.275),(1.25@0.125),(1.375@0.03),(1.5@0),(1.625@0.03),(1.75@0.125),(1.875@0.375),(2@1)}}))  'Squiggle        \n            newgraphic.SetOrigin(NextGraphicOrigin)\n            newgraphic.SetBounds(Rect.Make(NextGraphicOrigin,(XSymWidth@0.2)))\n            newGraphic.SetExtent(XSymWidth@llh)\n        elseif (LinesAsHorz) then\n            newgraphic = GraphicShape.Make(Line.Make( (NextGraphicOrigin + (0@0.11)),(NextGraphicOrigin +(XSymWidth@0
  1675. .11)) )   )\n          elseif (LinesAsZigZag) then\n            newgraphic = GraphicShape.Make(PolyLine.Make({{(0@0),(0.133334@0.2),(0.2666667@0),(0.4@0.2)}}))\n            newgraphic.SetOrigin(NextGraphicOrigin)\n            newGraphic.SetExtent(XSymWidth@llh)\n          end\n        elseif (theSym.Is(Marker)) then        \n          newgraphic = GraphicShape.Make(NextGraphicOrigin + ( ((lsw/2))@0.1) )\n          if(thesym.GetSize > 18) then\n            ss = thesym.GetSize/72\n          end\n        elseif (theSym.I
  1676. s(TextSymbol)) then\n          newgraphic = GraphicText.Make(\"Text\",NextGraphicOrigin)\n        end  \n        newgraphic.SetSymbol(thesym)\n        newgraphic.GetSymbol.SetColorLock(true)\n        newgraphic.SetObjectTag(\"cl\")\n        theLabel.SetObjectTag(\"cl\")\n        Lgraphics.AddBatch(theLabel)\n        Lgraphics.AddBatch(newgraphic)\n        newgraphic.SetSelected(true)\n        theLabel.SetSelected(true)\n        NextGraphicOrigin = NextGraphicOrigin - (0@ss)\n        RunningHeightTotal = RunningHeightTotal + 
  1677. ss\n        if (RunningHeightTotal >= MinColumnHeight)then\n          Lgraphics.GroupSelected\n          Lgraphics.GetSelected.Get(0).SetObjectTag(\"cl\")\n          components = Lgraphics.GetSelected.Get(0)\n          ComponentsWidth = components.GetBounds.GetWidth\n          PartsSoFar = Lgraphics.FindAllByObjectTag(\"cl\")\n          for each h in PartsSoFar\n            h.SetSelected(true)\n          end\n          Lgraphics.GroupSelected\n          WidthSoFar = Lgraphics.GetSelected.Get(0).GetBounds.GetWidth\n        
  1678.   Lgraphics.UngroupSelected\n          NextGraphicOrigin = ((100+XColumns)@100) + (WidthSoFar@0)\n          Lgraphics.UnSelectAll\n          RunningHeightTotal = 0\n          StartedANewColumn = true     \n        end        \n      end  \n    elseif (tt.Is(ITheme)) then\n      itemLabel = thm\n      theLabel = GraphicText.Make( itemLabel,( NextGraphicOrigin + ((XSymWidth + XSymsLabels)@0.05) ) )\n      theLabel.GetSymbol.SetFont(Font.make(TitleFont,FontNorm))\n      theLabel.GetSymbol.SetSize(10)\n      theLabel.SetDi
  1679. splay(thelayout.GetDisplay)\n      newgraphic = GraphicText.Make(\"  Image\",(NextGraphicOrigin + (0@0.05)))\n      newgraphic.GetSymbol.SetFont(Font.make(TitleFont,FontNorm))\n      newgraphic.GetSymbol.SetSize(10)\n      newgraphic.SetDisplay(thelayout.GetDisplay)\n      newgraphic.GetSymbol.SetColorLock(true)\n      newgraphic.SetObjectTag(\"cl\")\n      theLabel.SetObjectTag(\"cl\")\n      Lgraphics.AddBatch(theLabel)\n      Lgraphics.AddBatch(newgraphic)\n      newgraphic.SetSelected(true)\n      theLabel.SetSelected(t
  1680. rue)\n      NextGraphicOrigin = NextGraphicOrigin - (0@ss)\n      RunningHeightTotal = RunningHeightTotal + ss\n      themeHasTitle = false    \n    else\n      continue\n    end\n        \n    if (RunningHeightTotal >= MinColumnHeight) then\n      Lgraphics.GroupSelected\n      Lgraphics.GetSelected.Get(0).SetObjectTag(\"cl\")\n      PartsSoFar = Lgraphics.FindAllByObjectTag(\"cl\")\n      for each h in PartsSoFar\n        h.SetSelected(true)\n      end\n      Lgraphics.GroupSelected\n      WidthSoFar = Lgraphics.GetSelected.
  1681. Get(0).GetBounds.GetWidth\n      Lgraphics.UngroupSelected\n      NextGraphicOrigin = ((100+XColumns)@100) + (WidthSoFar@0)\n      Lgraphics.UnSelectAll\n      RunningHeightTotal = 0\n      StartedANewColumn = true      \n    end\n   \n\n    if (RunningHeightTotal <> 0) then\n      NextGraphicOrigin = (NextGraphicOrigin  - (0@XThemes))\n    end\n    \n    PartsSoFar = Lgraphics.FindAllByObjectTag(\"cl\")\n    for each h in PartsSoFar\n      h.SetSelected(true)\n    end\n    if (SetRunningHeightToZero.Not) then\n      Lgraphics
  1682. .UnSelectAll\n    else \n      Lgraphics.GroupSelected\n      Lgraphics.GetSelected.Get(0).SetObjectTag(\"cl\")\n      LGraphics.UnSelectAll\n    end\n    \n  end ' For each Theme  \nend\n\n'***************************************\n'* If the Legend has a title, this is  *\n'* when we position it relative to the *\n'* rest of the legend.                 *\n'***************************************\n\nif (legendHasTitle) then\n  'Get All the graphics and group them\n  lg = Lgraphics.FindAllByObjectTag(\"cl\")\n  for each l in lg\n   
  1683.  l.SetSelected(true)\n  end\n  Lgraphics.GroupSelected\n  AllButTitle = Lgraphics.GetSelected.Get(0)\n  AllButTitle.SetObjectTag(\"cl\")\n  \n  Lgraphics.Add(theTitle)\n  TitleWidth = theTitle.GetBounds.GetWidth\n  TitleHeight = theTitle.GetBounds.GetHeight\n  AllButTitleWidth = AllButTitle.GetBounds.GetWidth\n  AllButTitleHeight = AllButTitle.GetBounds.GetHeight\n  AllButTitleOrigin = AllButTitle.GetOrigin\n  \n  if (UC) then\n    if (AllButTitleWidth >= TitleWidth) then\n      oldOrigin = theTitle.GetOrigin\n      newOrigi
  1684. n = oldOrigin + ( ((AllButTitleWidth - TitleWidth)/2)@0 )\n      theTitle.SetOrigin(newOrigin)\n    else\n      oldOrigin = AllButTitle.GetOrigin\n      newOrigin = oldOrigin + ( ((TitleWidth - AllButTitleWidth)/2)@0 )\n      AllButTitle.SetOrigin(newOrigin)\n    end\n  elseif (CL) then  \n    if (AllButTitleWidth >= TitleWidth) then\n      oldOrigin = theTitle.GetOrigin\n      newOrigin = oldOrigin + ( ((AllButTitleWidth - TitleWidth)/2)@(-AllButTitleHeight) )\n      theTitle.SetOrigin(newOrigin)\n      AllButTitle.Se
  1685. tOrigin(AllButTitleOrigin + (0@(TitleHeight + XTitleLegend)))\n    else\n      oldOrigin = AllButTitle.GetOrigin\n      newOrigin = oldOrigin + ( ((TitleWidth - AllButTitleWidth)/2)@(-AllButTitleHeight) )\n      AllButTitle.SetOrigin(newOrigin)\n      AllButTitle.SetOrigin(AllButTitleOrigin + (0@(TitleHeight + XTitleLegend)))\n    end\n  elseif (UL) then  \n      'Do Nothing since that's where it is anyway\n  elseif (LC) then  \n      oldOrigin = theTitle.GetOrigin\n      newOrigin = oldOrigin - ( 0@(  (AllButTitleHei
  1686. ght/2) + (TitleHeight/(1.4))  ) )\n      theTitle.SetOrigin(newOrigin)\n      AllButTitle.SetOrigin(AllButTitleOrigin + ((TitleWidth + XTitleLegend)@0))\n  elseif (LL) then  \n      oldOrigin = theTitle.GetOrigin\n      newOrigin = oldOrigin + ( 0@(-AllButTitleHeight) )\n      theTitle.SetOrigin(newOrigin)\n      AllButTitle.SetOrigin(AllButTitleOrigin + (0@(TitleHeight + XTitleLegend )))\n  elseif (UR) then  \n      oldOrigin = theTitle.GetOrigin\n      newOrigin = oldOrigin + ( (AllButTitleWidth - TitleWidth)@0 )\n 
  1687.      theTitle.SetOrigin(newOrigin)\n  elseif (RC) then  \n      oldOrigin = theTitle.GetOrigin\n      newOrigin = oldOrigin + ( (AllButTitleWidth + XTitleLegend)@( -((AllButTitleHeight/2) + (TitleHeight/(1.4)))  ) )\n      theTitle.SetOrigin(newOrigin)\n  elseif (RL) then  \n      oldOrigin = theTitle.GetOrigin\n      newOrigin = oldOrigin + ( (AllButTitleWidth - TitleWidth)@(-(AllButTitleHeight+(0)) ) )\n      theTitle.SetOrigin(newOrigin)\n      AllButTitle.SetOrigin(AllButTitleOrigin + (0@(TitleHeight + XTitleLeg
  1688. end)))\n  end\nend\n\n  \n  \ntheLegParts = Lgraphics.FindAllByObjectTag(\"cl\")\nfor each gi in theLegParts\n  gi.SetSelected(true)\nend\n \n\n \n'Place Bounding Box behind legend\n  \nLgraphics.GroupSelected\nif (Lgraphics.GetSelected.Count = 0) then\n  jh = Lgraphics.FindAllByObjectTag(\"cl\")\n  for each gy in jh\n    gy.SetSelected(true)\n  end\n  Lgraphics.GroupSelected\nend\n\ntheLeg = Lgraphics.GetSelected.Get(0)\ntheLeg.SetName(\"cl\")\nbrect = theLeg.GetBounds.Clone\ncursize = brect.ReturnSize\nbrect.SetSize( (cursize + (0.5@0.4))
  1689.  )\ncurorig = brect.ReturnOrigin\nbrect.SetOrigin( (curorig - (0.25@0.25)) )\n\nBlackList = {0,0,0}\nDRedList = {150,0,0}\nDGreenList = {0,150,0}\nDBlueList = {0,0,150}\nDGrayList = {120,120,120}\nBrownList = {150,120,50}\nWhiteList = {255,255,255}\nLYellowList = {255,255,220}\nLGreenList = {220,255,220}\nLBlueList = {220,220,255}\nLGrayList = {220,220,220}\nBeigeList = {240,220,200}\n\nBGColor = Color.Make\nOLColor = Color.Make\nif (BorderOLColor = \"Black\") then\n  OLColor.SetRGBList(BlackList)\nelseif(BorderOLColor = \"Dark Re
  1690. d\") then\n  OLColor.SetRGBList(DRedList)\nelseif(BorderOLColor = \"Dark Green\") then\n  OLColor.SetRGBList(DGreenList)\nelseif(BorderOLColor = \"Dark Blue\") then\n  OLColor.SetRGBList(DBlueList)\nelseif(BorderOLColor = \"Dark Gray\") then\n  OLColor.SetRGBList(DGrayList)\nelseif(BorderOLColor = \"Brown\") then\n  OLColor.SetRGBList(BrownList)\nend\n\nif (BorderBGColor = \"White\") then\n  BGColor.SetRGBList(WhiteList)\nelseif(BorderBGColor = \"Light Yellow\") then\n  BGColor.SetRGBList(LYellowList)\nelseif(BorderBGColor = \"Light Gre
  1691. en\") then\n  BGColor.SetRGBList(LGreenList)\nelseif(BorderBGColor = \"Light Blue\") then\n  BGColor.SetRGBList(LBlueList)\nelseif(BorderBGColor = \"Light Gray\") then\n  BGColor.SetRGBList(LGrayList)\nelseif(BorderBGColor = \"Beige\") then\n  BGColor.SetRGBList(BeigeList)\nend\ntrnc = Color.Make\ntrnc.SetTransparent(true)\n\n\nLGraphics.EndBatch\n\nif (RoundCorners) then\n  BGShp = av.Run(\"Graphic.RoundRectCorners\",{brect, 0.1875})\n  BGRect = GraphicShape.Make(BGShp)\n  BGRect.SetBounds(brect.Clone)\nelseif (RoundCorners.Not) then
  1692. \n  BGRect = GraphicShape.Make(brect)  \nend\nbgfill = RasterFill.Make\nbgfill.SetStyle(#RASTERFILL_STYLE_OPAQUESTIPPLE)\nbgfill.SetColor(trnc)\nbgfill.SetBGColor(BGColor)\nbgfill.SetOLColor(OLColor)\nbgfill.SetOLWidth(BorderWidth)\nBGRect.SetSymbol(bgfill)\nBGRect.SetDisplay(thelayout.GetDisplay) \n\n\nif (BorderStyle = 0) then\n \n  LGraphics.Add(BGRect)\n  LGraphics.MoveSelectedToFront\n  BGRect.SetSelected(True)\n  LGraphics.GroupSelected\n  LGraphics.GetSelected.Get(0).SetOrigin(RectOrigin)\n  BGRect.Invalidate\n  if (UseD
  1693. ropShadow) then\n    theRest = LGraphics.GetSelected.Get(0)\n    theRest.SetSelected(false)\n    DSS = BGRect.GetShape.Clone\n    DS = GraphicShape.Make(DSS)\n    DSO = DS.GetBounds.ReturnOrigin.Clone\n    DS.SetBounds(Rect.Make(DSO + (0.1875@(-0.1875)),theRest.GetExtent ))\n    DSColor = Color.Make\n    DSColor.SetRGBList(DGrayList)\n    DS.SetSymbol(bgfill.clone)\n    DS.GetSymbol.SetBGColor(DSColor)\n    DS.GetSymbol.SetOLColor(DSColor)\n    LGraphics.Add(DS)\n    DS.SetSelected(true)\n    LGraphics.MoveSelectedToBack
  1694. \n    theRest.SetSelected(True)\n    LGraphics.GroupSelected\n    LGraphics.GetSelected.Get(0).Invalidate\n  end\n\nelse\n  BiggerRect = BGRect.GetShape.Clone\n  BGRect1 = GraphicShape.Make(BiggerRect)\n  BRB = BGRect1.GetBounds.Clone\n  BRB.ExpandBy(BorderWidth/36)\n  BGRect1.SetBounds(BRB)\n  BGRect1.SetSymbol(bgfill.Clone)\n  BGRect.GetSymbol.SetOLWidth(0.2)\n  BGrect1.GetSymbol.SetOLWidth(0.2)\n  if (BorderStyle = 2) then\n    BGRect.GetSymbol.SetOLWidth(3)\n  end\n  LGraphics.Add(BGRect)\n  LGraphics.MoveSelectedToFront\n
  1695.   BGRect.SetSelected(True)\n  LGraphics.GroupSelected\n  LGraphics.Add(BGRect1)\n  LGraphics.MoveSelectedToFront\n  BGRect1.SetSelected(True)\n  LGraphics.GroupSelected \n  LGraphics.GetSelected.Get(0).SetOrigin(RectOrigin)\n  \n  if (UseDropShadow) then\n    theRest = LGraphics.GetSelected.Get(0)\n    theRest.SetSelected(false)\n    DSS = BGRect1.GetShape.Clone\n    DS = GraphicShape.Make(DSS)\n    DSO = DS.GetBounds.ReturnOrigin.Clone\n    DS.SetBounds(Rect.Make(DSO + (0.1875@(-0.1875)),theRest.GetExtent ))\n    DSColor
  1696.  = Color.Make\n    DSColor.SetRGBList(DGrayList)\n    DS.SetSymbol(bgfill.clone)\n    DS.GetSymbol.SetBGColor(DSColor)\n    DS.GetSymbol.SetOLColor(DSColor)\n    LGraphics.Add(DS)\n    DS.SetSelected(true)\n    LGraphics.MoveSelectedToBack\n    theRest.SetSelected(True)\n    LGraphics.GroupSelected\n  end\n\n  LGraphics.GetSelected.Get(0).SetName(\"_Try_It\")\n  LGraphics.MoveSelectedToFront  \n  LGraphics.GetSelected.Get(0).Invalidate\n  \nend\n\nLGraphics.GetSelected.Get(0).SetName(\"_Try_It\")\nNextButton.SetEnabled(true)\nNext
  1697. Button.SetLabel(\"Remove\")\nNextButton.SetHelp(\"Removes the preview of the legend from the layout\")\nBackButton.SetEnabled(false)\nSelf.SetLabel(\"Finish\")\nSelf.SetHelp(\"Accept this legend and close the Custom Legend Wizard\")\n\n\n  "
  1698. )
  1699.  
  1700. (Script.197
  1701.     Name:    "Legends.AddDrop Themes"
  1702.     SourceCode:    "MTD = av.FindDialog(\"Legends Multi-Column Legend\")\n\nFinishButton = MTD.FindByName(\"LFinish\")\nNextButton = MTD.FindByName(\"LNext\")\n\nThemeList = MTD.FindByName(\"ThemeList\")\nLegThemes = MTD.FindByName(\"LegThemes\")\nAddThemes = MTD.FindByName(\"AddThemes\")\nRemoveThemes = MTD.FindByName(\"RemoveThemes\")\n\nThemesToAdd = ThemeList.GetSelection\nThemesToDrop = LegThemes.GetSelection\n\nif ((ThemesToAdd = nil) and (Self.GetName = \"AddThemes\")) then\n  return nil\nend\nif ((ThemesToDrop = nil) and (Self.GetName = \"RemoveThemes
  1703. \")) then\n  return nil\nend\n\nif ( (ThemesToAdd.Count <> 0) and (Self.GetName = \"AddThemes\") ) then \n  CurrentThemesInLegend = LegThemes.GetList\n  ThemesToChooseFrom = ThemeList.GetList\n  for each xx in ThemesToAdd\n    CurrentThemesInLegend.Add(xx)\n    ThemesToChooseFrom.RemoveObj(xx)\n  end\n  LegThemes.DefineFromList(CurrentThemesInLegend)\n  ThemeList.DefineFromList(ThemesToChooseFrom)\nend\nif ( ( ThemesToDrop.Count <> 0) and (Self.GetName = \"RemoveThemes\") ) then \n  CurrentThemesInLegend = LegThemes.GetList\n  
  1704. ThemesToChooseFrom = ThemeList.GetList\n  for each yy in ThemesToDrop\n    CurrentThemesInLegend.RemoveObj(yy)\n    ThemesToChooseFrom.Add(yy)\n  end\n  LegThemes.DefineFromList(CurrentThemesInLegend)\n  ThemeList.DefineFromList(ThemesToChooseFrom)\nend\n\nif (LegThemes.GetList.Count <> 0) then\n  FinishButton.SetEnabled(true)\n  NextButton.SetEnabled(true)\nelse\n  FinishButton.SetEnabled(false)\n  NextButton.SetEnabled(false)\nend"
  1705. )
  1706.  
  1707. (Script.198
  1708.     Name:    "Legends.Change Title Font"
  1709.     SourceCode:    "MTD = av.FindDialog(\"Legends Multi-Column Legend\")\nTitleFont = MTD.FindByName(\"TitleFont\").GetSelection\nTitleStyle = MTD.FindByName(\"TitleStyle\")\n\n\nfontName = nil\n\nif (Self.GetName = \"TitleFont\") then\n  fontName = TitleFont\nend\n\n\nif (fontName <> nil) then\n  Styles = FontManager.The.ReturnStyles(fontName)\n  \n  if (Self.GetName = \"TitleFont\") then\n    TitleStyle.DefineFromList(Styles.DeepClone)\n  end\nend\n"
  1710. )
  1711.  
  1712. (Script.199
  1713.     Name:    "Legends.Change View"
  1714.     SourceCode:    "MTD = av.FindDialog(\"Legends Multi-Column Legend\")\n\nCancelButton = MTD.FindByName(\"LCancel\")\nBackButton = MTD.FindByName(\"LBack\")\nNextButton = MTD.FindByName(\"LNext\")\nFinishButton = MTD.FindByName(\"LFinish\")\n\nVFrame = MTD.FindByName(\"Vname\")\nNumCols = MTD.FindByName(\"NumCols\")\nThemeList = MTD.FindByName(\"ThemeList\")\nLegThemes = MTD.FindByName(\"LegThemes\")\nAddThemes = MTD.FindByName(\"AddThemes\")\nRemoveThemes = MTD.FindByName(\"RemoveThemes\")\nLegTitle = MTD.FindByName(\"LegTitle\")\n\nfv = VFrame.GetCurrentValue\nt
  1715. l = {}\nfor each t in av.FindDoc(fv).GetThemes\n  if ((t.GetClass.GetClassName = \"BaseMapTheme\") OR (t.GetClass.GetClassName = \"TTheme\")) then\n    continue\n  end\n  tl.Add(t.GetName)\nend\nLegTitle.SetText(fv)\nThemeList.DefineFromList(tl)\nncols = {\"One per theme\"}\nnThemes = tl.Count\nfor each xx in 1..nThemes\n  ncols.Add(xx.AsString)\nend\nNumcols.DefineFromList(ncols)\nNumcols.SelectCurrent\nLegThemes.DefineFromList({})"
  1716. )
  1717.  
  1718. (Script.200
  1719.     Name:    "Legends.Open"
  1720.     SourceCode:    "MTD = av.FindDialog(\"Legends Multi-Column Legend\")\n\nCancelButton = MTD.FindByName(\"LCancel\")\nBackButton = MTD.FindByName(\"LBack\")\nNextButton = MTD.FindByName(\"LNext\")\nFinishButton = MTD.FindByName(\"LFinish\")\nFinishButton.SetLabel(\"Preview\")\nFinishButton.SetHelp(\"Preview the legend using the current settings\") \n\nNextButton.SetLabel(\"Next >>\")\nNextButton.SetHelp(\"Show the next panel of the Custom Legend Wizard\")\n\nIntroPanel = MTD.FindByName(\"IntroPanel\")\nThemePanel = MTD.FindByName(\"ThemePanel\")\nTitlePanel = 
  1721. MTD.FindByName(\"TitlePanel\")\nBorderPanel = MTD.FindByName(\"BorderPanel\")\nSymbolPanel = MTD.FindByName(\"SymbolPanel\")\nSpacingPanel = MTD.FindByName(\"SpacingPanel\")\n\nVFrame = MTD.FindByName(\"Vname\")\nNumCols = MTD.FindByName(\"NumCols\")\nThemeList = MTD.FindByName(\"ThemeList\")\nLegThemes = MTD.FindByName(\"LegThemes\")\nLegTitle = MTD.FindByName(\"LegTitle\")\nTitleFont = MTD.FindByName(\"TitleFont\")\nTitleSize = MTD.FindByName(\"TitleSize\")\nTitleStyle = MTD.FindByName(\"TitleStyle\")\nTitleJustLab = MTD.FindByName(\"TitleJus
  1722. tLab\")\nUL = MTD.FindByName(\"UL\")\nUC = MTD.FindByName(\"UC\")\nUR = MTD.FindByName(\"UR\")\nLC = MTD.FindByName(\"LC\")\nRC = MTD.FindByName(\"RC\")\nLL = MTD.FindByName(\"LL\")\nCL = MTD.FindByName(\"CL\")\nRL = MTD.FindByName(\"RL\")\n\nBorderStyle = MTD.FindByName(\"BorderStyle\")\nBorderWidth = MTD.FindByName(\"BorderWidth\")\nBorderOLColor = MTD.FindByName(\"BorderOLColor\")\nBorderBGColor = MTD.FindByName(\"BorderBGColor\")\nUseDropShadow = MTD.FindByName(\"UseDropShadow\")\nRoundCorners = MTD.FindByName(\"RoundCorners\")\n\nPolysAsRects = MT
  1723. D.FindByName(\"PolysAsRects\")\nPolysAsSquares = MTD.FindByName(\"PolysAsSquares\")\nPolysAsOvals = MTD.FindByName(\"PolysAsOvals\")\nLinesAsHorz = MTD.FindByName(\"LinesAsHorz\")\nLinesAsZigZag = MTD.FindByName(\"LinesAsZigZag\")\nLinesAsEsses = MTD.FindByName(\"LinesAsEsses\")\n\nXTitleLegend = MTD.FindByName(\"XTitleLegend\")\nXColumns = MTD.FindByName(\"XColumns\")\nXThemes = MTD.FindByName(\"XThemes\")\nXThemeSyms = MTD.FindByName(\"XThemeSyms\")\nXSymsLabels = MTD.FindByName(\"XSymsLabels\")\nXSymRows = MTD.FindByName(\"XSymRows\")\nXSym
  1724. Width = MTD.FindByName(\"XSymWidth\")\n\naIconBox1 = MTD.FindByName(\"aIconBox1\")\nif (System.GetOSVariant = #SYSTEM_OSVARIANT_MSW16) then\n  \nelse\n  aIf = \"$AVHOME/tools/bitmaps/legwiz1.bmp\".AsFileName\n  if (File.Exists(aIf)) then\n    WizIcon = Icon.Make(aIf)\n    aIconBox1.SetIcon(WizIcon)\n  end\nend\n\naIconBox30 = MTD.FindByName(\"aIconBox30\")\naIc = \"$AVHOME/tools/bitmaps/ltp.bmp\".AsFileName\nif (File.Exists(aIc)) then\n  PosIcon = Icon.Make(aIc)\n  aIconBox30.SetIcon(PosIcon)\nend\n\nFinishButton.SetEnabled(false) 'Gets
  1725.  moved to true when themes are selected  \nBackButton.SetEnabled(false)\nCancelButton.SetEnabled(true)\nNextButton.SetEnabled(true)\nMTD.FindByName(\"LegTitle\").SetObjectTag(false)\n\nif (LegTitle.GetText = \"\") then\n  TitleFont.SetEnabled(false)\n  TitleSize.SetEnabled(false)\n  TitleStyle.SetEnabled(false)\n  TitleJustLab.SetEnabled(false)\nelse  \n  TitleFont.SetEnabled(true)\n  TitleSize.SetEnabled(true)\n  TitleStyle.SetEnabled(true)\n  TitleJustLab.SetEnabled(true)\nend\n\n\nncols = {\"One per theme\"}\nnThemes = ThemeList.
  1726. GetList.Count\nfor each xx in 1..40\n  ncols.Add(xx.AsString)\nend\nNumcols.DefineFromList(ncols)\nNumcols.SelectCurrent\nLegThemes.DefineFromList({})\n\nSysFonts = FontManager.The.ReturnFamilies\nTOCF = TOC.GetDefaultSymbol.GetFont\nfontName = TOCF.GetFamily\nstyleName = TOCF.GetStyle\n\nSysFonts.Insert(fontName)\nTitleFont.DefineFromList(SysFonts)\n\n\nStyles = FontManager.The.ReturnStyles(fontName)\nStyles.Insert(styleName)\nTitleStyle.DefineFromList(Styles.DeepClone)\n\n\n\nUC.Select\n\nUseDropShadow.SetSelected(false)\nRoundCor
  1727. ners.SetSelected(false)\n\nifn1 = \"$AVHOME/tools/bitmaps/solid.bmp\".AsFileName\nifn2 = \"$AVHOME/tools/bitmaps/double.bmp\".AsFileName\nifn3 = \"$AVHOME/tools/bitmaps/dtt.bmp\".AsFileName\nif (File.Exists(ifn1)) then\n  Icon1 = Icon.Make(ifn1)\n  Icon2 = Icon.Make(ifn2)\n  Icon3 = Icon.Make(ifn3)\n  Icon1.SetName(\"Single line\")\n  Icon2.SetName(\"Uniform double line\")\n  Icon3.SetName(\"Thick|Thin double line\")\n  BStyles = {Icon1,Icon2,Icon3}\nend\nBorderStyle.DefineFromList(BStyles)\nBorderStyle.FitRows((0..2),false)\n\nLineWei
  1728. ghts1 = {\"0.1\",\"0.2\",\"0.25\",\"0.5\",\"0.75\",\"1.0\",\"1.25\",\"1.5\",\"2.0\",\"2.5\",\"3.0\"}\nLineWeights2 = {\"3.0\",\"2.5\",\"2.0\",\"1.5\",\"1.25\",\"1.0\",\"0.75\",\"0.5\",\"0.25\",\"0.2\",\"0.1\"}\nBorderWidth.DefineFromList(LineWeights1)\nBOLC = {\"Black\",\"Dark Red\",\"Dark Green\",\"Dark Blue\",\"Dark Gray\",\"Brown\"}\nBorderOLColor.DefineFromList(BOLC)\nBBGC = {\"White\",\"Light Yellow\",\"Light Green\", \"Light Blue\",\"Light Gray\",\"Beige\"}\nBorderBGColor.DefineFromList(BBGC)\n\n\nLabelSizes = {\"18\"}\nfor each h in 10..36\n  LabelSizes.Add(h.AsString)\nend\nTitleS
  1729. ize.DefineFromList(LabelSizes.DeepClone)\n\nPolysAsRects.Select\nLinesAsHorz.Select\n\nLegWideFact = (av.GetProject.GetTOCWidthScale) * 0.4\nif (LegWideFact < 0.15) then\n  LegWideFact = 0.4\nend\nXSymWidth.SetText(LegWideFact.AsString)\n\n\nVert = 18\nHorz = 170\n\nIntroPanel.MoveTo(Horz,Vert)\nIntroPanel.SetEnabled(true)\nThemePanel.MoveTo(700,800)\nTitlePanel.MoveTo(1400,400)\nSpacingPanel.MoveTo(700,800)\nBorderPanel.MoveTo(1100,800)\nSymbolPanel.MoveTo(1400,800)\n\nThemePanel.SetEnabled(false)\nTitlePanel.SetEnabled(false)\nBo
  1730. rderPanel.SetEnabled(false)\nSymbolPanel.SetEnabled(false)\nSpacingPanel.SetEnabled(false)"
  1731. )
  1732.  
  1733. (Script.201
  1734.     Name:    "Legends.Close"
  1735.     SourceCode:    "if (av.GetProject.isClosing) then\n  return nil\nend\nthelayout = av.GetActiveDoc\nif ( Not (theLayout.is(Layout))) then\n  Msgbox.Info(\"Your Preview legend could not be removed because your layout document was not active.\",\"Oops\")\n  return nil\nend\n\nMTD = av.FindDialog(\"Legends Multi-Column Legend\")\n\nl = av.GetActiveDoc\ntl = l.GetGraphics.FindAllByName(\"_Try_It\")\nif (tl <> nil) then\n  for each gxd in tl\n    l.GetGraphics.RemoveGraphic(gxd)\n  end\nend\n"
  1736. )
  1737.  
  1738. (Script.202
  1739.     Name:    "Legends.Show"
  1740.     SourceCode:    "MTD = av.FindDialog(\"Legends Multi-Column Legend\")\n\nMTD.SetTitle(\"Custom Legend\")\n\nCancelButton = MTD.FindByName(\"LCancel\")\nBackButton = MTD.FindByName(\"LBack\")\nNextButton = MTD.FindByName(\"LNext\")\nFinishButton = MTD.FindByName(\"LFinish\")\n\nThemePanel = MTD.FindByName(\"ThemePanel\")\nTitlePanel = MTD.FindByName(\"TitlePanel\")\nBorderPanel = MTD.FindByName(\"BorderPanel\")\nSymbolPanel = MTD.FindByName(\"SymbolPanel\")\nSpacingPanel = MTD.FindByName(\"SpacingPanel\")\n\nVFrame = MTD.FindByName(\"Vname\")\nNumCols = MTD.FindBy
  1741. Name(\"NumCols\")\nThemeList = MTD.FindByName(\"ThemeList\")\nLegTitle = MTD.FindByName(\"LegTitle\")\n\nthelayout = av.GetActiveDoc\nif(theLayout.Is(Layout).Not) then return nil end\nLgraphics = thelayout.GetGraphics\nLgraphics.UnselectAll\nRectOrigin = theLayout.GetDisplay.ReturnUserPoint\n\nFinishButton.SetObjectTag(RectOrigin)\n\nvfl = {}\nfor each d in av.GetProject.GetDocs\n  if (d.Is(View)) then\n    if (d.GetThemes.Count > 0) then\n      vfl.Add(d.GetName)\n    end\n  end\nend\n\nif (vfl.Count = 0) then\n  Msgbox.Info(\"You mus
  1742. t have at least one view in your project to use this tool\",\"Cannot continue\")\n  return nil\nend\nVFrame.DefineFromList(vfl)\nfv = vfl.Get(0)\ntl = {}\nfor each t in av.FindDoc(fv).GetThemes\n  if ((t.GetClass.GetClassName = \"BaseMapTheme\") OR (t.GetClass.GetClassName = \"TTheme\") OR (t.GetClass.GetClassName = \"STheme\")) then\n    continue\n  end\n  tl.Add(t.GetName)\nend\nThemeList.DefineFromList(tl)\nLegTitle.SetText(fv)\nMTD.Open\n"
  1743. )
  1744.  
  1745. (Script.203
  1746.     Name:    "Legends.Theme List Update"
  1747.     SourceCode:    "MTD = av.FindDialog(\"Legends Multi-Column Legend\")\n\nFinishButton = MTD.FindByName(\"LFinish\")\n\nThemeList = MTD.FindByName(\"ThemeList\")\nLegThemes = MTD.FindByName(\"LegThemes\")\n\nIf (Self.GetName = \"ThemeList\") then\n  LegThemes.SetSelection(Rect.MakeEmpty,false)\nelse\n  ThemeList.SetSelection(Rect.MakeEmpty,false)\nend"
  1748. )
  1749.  
  1750. (Script.204
  1751.     Name:    "Legends.Title Update"
  1752.     SourceCode:    "MTD = av.FindDialog(\"Legends Multi-Column Legend\")\n\nSelf.SetObjectTag(true)\n\nLegTitle = MTD.FindByName(\"LegTitle\").GetText\n\nTitleFont = MTD.FindByName(\"TitleFont\")\nTitleSize = MTD.FindByName(\"TitleSize\")\nTitleStyle = MTD.FindByName(\"TitleStyle\")\nTitleJustLab = MTD.FindByName(\"TitleJustLab\")\n\nif (LegTitle = \"\") then\n  TitleFont.SetEnabled(false)\n  TitleSize.SetEnabled(false)\n  TitleStyle.SetEnabled(false)\n  TitleJustLab.SetEnabled(false)\nelse  \n  TitleFont.SetEnabled(true)\n  TitleSize.SetEnabled(true)\n  Titl
  1753. eStyle.SetEnabled(true)\n  TitleJustLab.SetEnabled(true)\nend"
  1754. )
  1755.  
  1756. (Script.205
  1757.     Name:    "Legends.Update Panel"
  1758.     SourceCode:    "MTD = av.FindDialog(\"Legends Multi-Column Legend\")\n\nthelayout = av.GetActiveDoc\nif ( Not (theLayout.is(Layout))) then\n  Msgbox.Info(\"Please make your layout active again.\",\"Oops\")\n  return nil\nend\n\n\nCancelButton = MTD.FindByName(\"LCancel\")\nBackButton = MTD.FindByName(\"LBack\")\nNextButton = MTD.FindByName(\"LNext\")\nFinishButton = MTD.FindByName(\"LFinish\")\nNumCols = MTD.FindByName(\"NumCols\").GetSelection\nVFrame = MTD.FindByName(\"Vname\").GetSelection\ntheView = av.GetProject.FindDoc(VFrame)\ntheThemesToUse = MTD.F
  1759. indByName(\"LegThemes\").GetList\n\nIntroPanel = MTD.FindByName(\"IntroPanel\")\nThemePanel = MTD.FindByName(\"ThemePanel\")\nTitlePanel = MTD.FindByName(\"TitlePanel\")\nBorderPanel = MTD.FindByName(\"BorderPanel\")\nSymbolPanel = MTD.FindByName(\"SymbolPanel\")\nSpacingPanel = MTD.FindByName(\"SpacingPanel\")\n\nNumCols = MTD.FindByName(\"NumCols\").GetSelection\nXThemes = MTD.FindByName(\"XThemes\")\nLegThemes = MTD.FindByName(\"LegThemes\")\n\npanels = {IntroPanel, ThemePanel, TitlePanel, BorderPanel, SymbolPanel, SpacingPanel}\nTitles 
  1760. = {\"Custom Legend\",\n          \"Custom Legend - Step 1 of 5: Basic Settings\",\n          \"Custom Legend - Step 2 of 5: Title Settings\",\n          \"Custom Legend - Step 3 of 5: Border Settings\",\n          \"Custom Legend - Step 4 of 5: Symbol Settings\",\n          \"Custom Legend - Step 5 of 5: Spacing Settings\"}\n\nLegTitle = MTD.FindByName(\"LegTitle\")\nif ((LegTitle.GetObjectTag) = false) then\n  if ((theThemesToUse.Count = 1) and (Self.GetName = \"LNext\") and (Self.GetLabel = \"Next >>\")) then\n    tt = theView.FindT
  1761. heme(theThemesToUse.Get(0)).GetName\n    LegTitle.SetText(tt)\n  elseif ((theThemesToUse.Count > 1) and (Self.GetName = \"LNext\") and (Self.GetLabel = \"Next >>\")) then\n    LegTitle.SetText(theView.GetName)\n  end\nend\n\nif (self.Getname = \"LCancel\") then\n  MTD.Close\n  l = av.GetActiveDoc\n  tl = l.GetGraphics.FindAllByName(\"_Try_It\")\n  if (tl <> nil) then\n    for each gxd in tl\n      l.GetGraphics.RemoveGraphic(gxd)\n    end\n  end\n  NextButton.SetLabel(\"Next >>\")\n  NextButton.SetHelp(\"Show the next panel of the Cus
  1762. tom Legend Wizard\")\n  FinishButton.SetLabel(\"Preview\") \n  FinishButton.SetHelp(\"Preview the legend using the current settings\") \n  if (IntroPanel.IsEnabled.Not) then\n    BackButton.SetEnabled(true)\n  end\n  return nil\nend\n\nif ((NextButton.GetLabel = \"Remove\") and (Self.GetName = \"LNext\")) then\n  l = av.GetActiveDoc\n  tl = l.GetGraphics.FindAllByName(\"_Try_It\")\n  if (tl <> nil) then\n    for each gxd in tl\n      l.GetGraphics.RemoveGraphic(gxd)\n    end\n  end\n  NextButton.SetLabel(\"Next >>\")\n  NextButton.SetHel
  1763. p(\"Show the next panel of the Custom Legend Wizard\")\n  FinishButton.SetLabel(\"Preview\") \n  FinishButton.SetHelp(\"Preview the legend using the current settings\") \n  if (IntroPanel.IsEnabled.Not) then\n    BackButton.SetEnabled(true)\n  end\n  if(SpacingPanel.IsEnabled) then\n    NextButton.SetEnabled(false)\n  end\n  return nil\nend\n\n\nif (NumCols = \"One per theme\") then\n  XThemes.SetEnabled(false)\n  MTD.FindByName(\"aTextLabel22\").SetEnabled(false)\nelse\n  XThemes.SetEnabled(true)\n  MTD.FindByName(\"aTextLabel22\").Set
  1764. Enabled(true)\nend\n\npCount = 0\npIdx = 0\nfor each p in panels\n  if (p.IsEnabled) then\n    pIdx = pCount\n  end\n  pCount = pCount + 1\nend \n\n'Move the current panel out of the way\npanels.Get(pIdx).Move(900,300)\npanels.Get(PIdx).SetEnabled(False)\n\nif (Self.GetName = \"LNext\") then\n  pIdx = pIdx + 1\nelseif (Self.Getname = \"LBack\") then\n  pIdx = pIdx - 1\nelse\n  MTD.Close\nend\n\nFinishButton.SetEnabled(true)\nif (pIdx = 0) then\n  BackButton.SetEnabled(false)\n  NextButton.SetEnabled(true)\nelse\n  BackButton.SetEnabled(tru
  1765. e)\nend\nif ((pIdx = (panels.Count -1)) or ((pIdx = (1)) and (Self.GetName <> \"LBack\") )   ) then\n  NextButton.SetEnabled(false)\n  FinishButton.SetEnabled(false)\nelse\n  NextButton.SetEnabled(true)  \n  FinishButton.SetEnabled(True)\nend\n\n  if (LegThemes.GetList.Count > 0) then\n    NextButton.SetEnabled(true)\n    FinishButton.SetEnabled(True)\n  else\n    if (Pidx <> 0) then\n      NextButton.SetEnabled(false)\n    else\n      NextButton.SetEnabled(true)    \n    end\n    FinishButton.SetEnabled(false)\n  end\n\n\n'Move th
  1766. e requested panel into position\npanels.Get(pIdx).SetEnabled(true)\nif(SpacingPanel.IsEnabled) then\n  NextButton.SetEnabled(false)\nend\n\npanels.Get(pIdx).MoveTo(170,18)\nMTD.SetTitle(Titles.Get(pIdx))\n"
  1767. )
  1768.  
  1769. (Script.206
  1770.     Name:    "Legends.Help"
  1771.     SourceCode:    "av.Help.SetAVFile  \nav.Help.ShowTopic(\"Layout_Advanced_Legend_Tool\")  \n"
  1772. )
  1773.  
  1774. (Script.207
  1775.     Name:    "Legends.CanUnload"
  1776.     SourceCode:    "return (true)"
  1777. )
  1778.  
  1779. (Script.208
  1780.     Name:    "Legends.Unload"
  1781.     SourceCode:    "Dialog.DetachFromExtension(self)"
  1782. )
  1783.  
  1784. (Script.209
  1785.     Name:    "Legends.Install"
  1786.     SourceCode:    "if (av.getproject=nil) then return nil end\n\nif(Self.GetPreferences.Get(\"Loaded\") = true) then\n  return nil\nend\n\ntheLayoutGUI = av.GetProject.FindGUI(\"Layout\")\nif (theLayoutGUI = nil) then\n  listOfLayoutGUIs = av.GetProject.FindGUIsFor(Layout)\n  LayoutGUIs2Use = Msgbox.MultiList(listOfLayoutGUIs,\"Choose one or more View document types to add Internet extension interface components to:\",\"Extension Loading\")\nelse\n  LayoutGUIs2Use = {theLayoutGUI}\nend\n\n\nfor each LayoutDocGUI in LayoutGUIs2Use\n  Tidx = LayoutDoc
  1787. GUI.GetToolBar.GetControls.Count - 1\n  LayoutDocGUI.GetToolBar.Add(Self.Get(0).Clone, Tidx)\n  LayoutDocGUI.SetModified(true)\nend\n\nif (LayoutGUIs2Use.Count > 0) then\n  Self.GetPreferences.Set(\"Loaded\",true)\n  Self.GetPreferences.Set(\"Version\",(3.1))\n  av.getproject.setmodified(true)\nend\n\n"
  1788. )
  1789.  
  1790. (Script.210
  1791.     Name:    "Legends.Uninstall"
  1792.     SourceCode:    "if (av.GetProject = nil) then\n  return nil\nend\n\nif (av.GetProject.IsClosing) then\n  return nil\nend\n\nlistOfLayoutGUIs = av.GetProject.FindGUIsFor(Layout)\n\nfor each aDocGUI in (listOfLayoutGUIs)\n  c3 = aDocGUI.GetToolBar.FindByScript(\"Legends.Show\")\n  if (c3 <> nil) then\n    aDocGUI.GetToolBar.Remove(c3)\n  end\nend\n\nav.getproject.setmodified(true)\n\n"
  1793. )
  1794.  
  1795.